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contents 


Declarations 
Readzurite'd yee 
Read/Write 
RMS-32 in A Sie cteres 
Main Program 
Test the DMP/DMF 
CHECKIOSB = go A status block 
Check Q10 AST Rout 
Receive data AST routine 
Half Minute Timer Expiration Routine 
Three Minutes Timer Expiration Routine 
System Service Exception Handler 
RMS Error Handler 
CTRL/C Handler 
Error Exit 
Exit Handler 
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UE TOMPF 00 VAX/VMS UETP DEVICE TEST FOR DMP 11/°DMF 16-SEP-1984 AX/VMS Macro VO4= 
Vo4ur001 ~SEb=198¢ 12:03:58 LUETP’SRCIUETDMPFOOMAR:2 "2° ty 


TITLE UE TOMPFOO VAX/VMS UETP DEVICE TEST FOR DMP 11/ DMF-32 S$ li 
bene Oe VReP bes: sitet aap 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS peut UNDER A LICENSE AND MAY BE USED AND carrey 
E WITH T T F CH LIC AN 


*® * 
® ® 
® ® 
® *® 
*® ® 
® ® 
® ® 
® ® 
* CO I E * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE iS HEREBY * 
* TRANSFERRED. * 
ad ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* HOULD NOT * 
® ® 
® ® 
® ® 
® id 
® ® 
ca ® 
-* * 


AND BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(LARRBRABBRAAAAALAAAAASAAAASALALARARRASARASARAL EASES ERAS RAR SERRA ERAS REDS SS OD | 


“FACILITY: 
This ne will be distributed with VAX/VMS under the CSYSTEST] 
account. 


ABSTRACT: 
This is the test program for DMP 11 / DMF 32 sync Line device test 


ig ag a 
This program will run in user access mode, with AST enabled except 
during error processing. This program requires the following 
privileges and quotas: none. 


AUTHOR: Paul Jeng, CREATION DATE: Sep, 1981 
MODIFIED BY: 


V04-001 RNHOO09 Richere N. Holstein, 07-Sep-1984 
Remove oo§ BAD the forced error for too big a buffer, since 
either SS$_BADPARAM or SS$_EXQUOTA could be returned depending 
on SYSGEN parameters. 


V03-010 RNHOOO8 Richard N. Holstein, 07-Apr-1984 
Adapt to driver fix which allocated “write buffers dynamically - 
we can't force an SS$_BADPARAM unless we exceed absolute max. 


v03-009 RNHOO007 Richard N. Holstein, 15-Feb-1984 
Take advantage of the new UETP message codes. Fix SSERROR 


NOUS ARO OD NOAUE WN 0 OD NAME WIN $$ SO OO NAME WN OO ONIO UNE WIN SO OONOU SE Win 


PUPP BS BB EE BE NWN NINA PONPIPOPINPIPUNPIPI IN 2 PP Os es es sO es 


SOooooooeoo 


ooo 
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VAX/VMS UETP DEVICE TEST FOR DMP By DMF 16-SEP-1984 226: AX/VMS Macro V04-00 P 
10-SEP-1984 03:93:82 YOETP. SRC SESDMPEOS MAR: 2 _ d) 

68 28 : interaction with RMS_ERROR. 

06 60 ; V03-008 RNHO006 Richard N. Holstein, 19-Dec-1983 

4 e] : Give correct sentinels to Test Controller. 
0000 8 : V03-007 RNHOOOS Richard N. Hotstein, 11-Nov-1983 

°° 0 ee ; Use decimal conversion routine for unit numbers. 

$60 66 : V03-006 RNHOO0S Richard N. Holstein, 29-Jun-1983 

4 44 : Rework error messages and error processing. 
990 $9 : v03-005 RNHO003 Richard N. Holstein, 11-Mar-1983 

B00 i : Don't signal ending message in EXIT_HANDLER. 
000 if : V03=004 RNHO002 Richard N. Holstein, 01-Mar-1983 

it i : Fix ERROR_COUNT bug. 
0000 «75: v03-003 LDJ0002 Larry D. Jones, 10-Feb-1983 

4 6 ; Allow for longer device names. 
0000 (78: v03-002 LDJ0001 Larry D. Jones, 06-Nov-1982 

a4 3 : Fixed a loop mode assign channel bug. 
0000 81: v03-001 RNHOOO1 Richard N. Holstein 15-Oct-1982 

ait ¢ : Miscellaneous fixes Listed in the V3B UETP Workplan. 
0000 = B4 xe 


Fee aren ronan eee eer tanta 


: Mioces tes 
BItM Mask to convert lower case to upper 

UETINIDEV.DAT record size 

Internal text buffer size 

EFN used for three minute timer 


somiss ss 


RS 


ae 


00 


000A 


MAX_PROC"NAME 


MAX_DEV_BESIG 


mm 

na] 

z 
nhenunnnune 
Bete Sete eee ee 


Synch miscellaneous system services 
Longest possible process name 
Longest possible controller name 
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TDMPFOO VAX/VMS UETP DEVICE TEST FOR DMP fy DMF 16-SEP-1984 01:24: AX/VMS M v04-00 Page 
VOse004 Declarations 1 ~3eE 1 382 13363558 UETP.SRC SETDMPFOD. MAR;2 « (| 
209 § -SBTTL Declarations 
000 5 ; INCLUDE FILES: 
000 0; SYSSLIBRARY:LIB.MLB for general definitions 
i 4 : SHRLIBS:UETP.MLB for UETP definitions 
0000 38 ; 
4h 94 ; MACROS: 
000 95 ; 
0000 96 SCHFDEF 3; Condition handler frame definitions 
8308 97 SDEVDEF ; pevice definitions 
00 98 SDIBDEF 3 vice Information Block 
0000 99 SDVIDEF ; pee Tov ITMLST item codes 
0000 100 SSHRDEF ; Shared messages 
0000 101 SSSDEF ; System Service status codes 
0000 138 SSTSDEF ; Status return ‘ 
0000 10 SUE TUNTDEF : vere unit block offset definitions 
0000 104 SUETPDEF 3; UETP 
0000 105 SXMDEF ; XMDRIVER symbols 
44 138 SNMADEF ; Network management definition 
0000 108 ; EQUATED SYMBOLS: 
0000 109; ; 
0000 110; Facilit rare’ definitions: 
00000001 0000 111 RMSS_FACILITY = 1 
0000 V6 
0000 115; SHR message definitions: 
00740000 0000 114 UETPS FACILI Tvastssy FAC_NO ; Define the UETP facility code 
Tots 3 0090 115 YETPS. ABENDD™ = UETP $_ABENDD™; Define the UETP message codes 
00741038 0000 116 UETP$"BEGIND = JETP’ SHRS BE IND 
00741080 0000 117 UETPS_ENDEDD = UETP!SHRS$_ENDEDD 
00741098 0000 118 UETPS_OPENIN = UETP!SHRS$_OPENIN 
00741130 a4 133 UETPS$_TEXT = UETP!SHRS_TEXT 
000 121; Internal flag bits...: 
00000001 0000 122 TEST_OVE = 1 ; Set when test is over 
00000002 0000 \$? SAFE TO_UPDV = ¢ ; Set if it's safe to update UVETINIDEV 
00000003 0000 124 IR_MSGV = 3; Set if BEGIN’ msg has been printed 
00004 0000 125 MODE_TS ONEV = 4 ; Set when the MODE is ONE 
00000005 0000 $6 FLAG_ ~SAOTDNV = 5 : Set to indicate RB. should be 
0000. = ; shutdown if errors occur 
000 128; ...and serres ondin ng masks: 
000 2 4 129 TEST_O = TATEST_OVERV 
0000 4 0 130 SAFE~ ont UPON = 1a@SAFE_TO_UPDV 
0000000 it 131 BEGIN_MSGM = 1aBEGIN MSGV 
0000001 ; 1 ¢ MODE_TS ONEM = 1a@MODE_TS ONEV 
00000020 0 ! i FLAG_ “SHOTONM = 1aFLAG_ “SHOTDNV 
1 5 
Hi 
139 
140 
141 
142 


, D1 
UE TDMPFOO VAX/VMS UETP DEVICE TEST FOR DMP 11/ DMF 16-SEP-1984 01:24:05 \VAX/VMS Macro v04-00 Page 4 
VOr001 SecLanaainan 1 =$eE 382 3:64:58 UE TP SRCIUET DMP OO MAR: 2 . (2) 
00000005 0 143 MAX_UNIT_DESIG= ; Longest possible unit number 
009008 0 09 144 MAX NSG_CEN = 212 3 maximum Sessage Length 
00 145 TIME 1D- = j ; Timer id to prevent hung 
i 146 RW_TIME_ID = 3 ; Timer to prevent hung when Read/write 
000001 14 LIMIT = 16 ; Loop count for each message length 
000 8° 0 148 RECV_EFN = 4 
000 $ 149 XMIT_EFN = ; EFN for Q10 write 
444444 150 PRM = 100 ; AST parameter for test 
0 B38 0 $ 151 DEVDEP_SIZE =0 : Size of device dependent part of UETUNT 
0000000 0 126 WRITE SIZE = 8 : Size of device write buffer 
00000000 0000 13? READ_SIZE = : Size of device read buffer 
$09 138 PAGES = <<UETUNTS$C_INDSIZ+=- ; Add together all of the pieces... 
0000 138 DEVDEP_SIZE+= ; «which make up a UETP unit block... 
0000 15 WRITE _SIZE+- 3 «+.toO give to the SEXPREG service below 
0000 158 READ_SIZE+- 
00000001 0000 159 511>7512> 
0000 160 
00000018 0000 £161 ESC = *X1B ; ESC character 
00000004 0000 162 RECVPOOL_SIZ = 4 ; Number of preallocated message block 


UE TDMPF OO 
vO04-001 


53 45 54 53 
50 4D 44 54 
50 55 53 54 
41 4E 4C 52 


45 44 


4E 49 24 53 


21 20 42 58 


2A 20 42 58 


59 53 en weeeeer 


45 55 


45 55 


54 43 


4F 4D 


59 53 


32 21 


32 21 


NN POAOo 


-—OoO ONOM 


steal gy 
30 30 46 
00000028°010E0000° 
56 45 44 
00000039"010E0000" 
45 4D 


00000049'010E0000' 


0020 0040 
pscenas 0014" 


GoDooOgA"P1OERORS" 
20 42 58 32 
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1 
DEVICE TEST FOR DMP Ay DMF 
Read-Only Data 


«$B 
“PS 

ACNT_NAME : 
.ASCID 


TEST_NAME : 
.ASCID 


SUPDEV_GBLSEC: 
eASCID 


CONTROLLER: 
»ASCID 


MODE: 
-ASCID 


NO_RMS_AST_ TABLE 
. LON 


aa 


- LON 
«LONG 
N 


o 
aq 


* LON * 
NRAT_LENGTH = .-NO_RAS_AST_TABLE 


SYSSINPUT: 
-ASCID 


INPUT_iTMLST: 
. WORD 


LONG 
LONG 
CS1: 
ASCID 
CS3: 
-ASCID 
CNTRLCMSG: 
-ASCID 


NO_CTRLNAME : 
8 ASCID 


64,DV1 
artes 


Read-On 


ly Data 
RODATA,NOEXE ,NOWRT , PAGE 


/SYSTEST/ 


/UETDMPFOO/ 


/UETSUPDEV/ 


/CTRLNAME/ 


/MODE/ 


MS$_RAB 
/SYSSINPUT/ 


»DV 
Bur 


E 
/'2xXB !2xB / 


/'2XB t*/ 


$_DEVN 
- BUFF 


ICSESIOEL Q:Bh:08 WORAMEacnokte 


VET. SRCJUETDMPFOO.MAR;2 


; Process name on exit 


This test name 

How we access UETSUPDEV.DAT 
Logical name of controller 
Run mode logical name 

List of errors for which... 


«+eRMS cannot deliver an AST... 
-..even if one has an ERR= arg 


Note that we can search table... 


~«eVia MATCHC since <31:16>... 
-+epattern can't be in <15:0> 


Name of device from which... 
«--the test can be aborted 


$GETDVI arg List for SYSSINPUT 
We need the equivalence name 


Terminate the List 


Device class and type control string 


Device class-only control string 


\Aborted via a user CTRL/C\ 


/No controller specified./ 


AX/VMS Macro V04- 


UE TDMPF OO O87 
v04-001 UETP.SRCJUETDMPFOO.MAR; 2 


a 
ere ag A DEVICE TEST FOR DMP 11/ DMF ! 


Read-Only Dat 3 E213 d 93: 63; 82 a a 


oO 
m 
=~ 


19 DEAD_CTRLNAME : 


20 74 27 6E 61 43 OODDDDEC'O10E0000' ODES ASCID / t 'A k 
eet $f $F : ef 00 S gf 1 3 Ore scl Can't test controller !AS, marked as unusable in UETINIDEV.DAT./ 
72 61 6D 20 2C 53 41 21 8 72 65 6C FE 
61 73 75 of 5 $3 73 61 64 6 10A 
SE 49 54 45 55 20 6E 69 20 65 6C 6 138 
2E 54 41 44 2E 56 45 44 4 i 12 
128 15 NOUNIT_SELECTED: 
69 6E 75 20 6F 4E 00000133'010E0000' 0128 a8 = .ASCID /N it f ing./ 
5 bk Oe 94 65 G8 ot oe F8 29 eS moan tree PERO FOr DORN 
2E 67 6E 69 74 73 65 74 20 6F 66 B13 15 
61 67 65 6C 6C 49 00000159'010E0000" Ee a6 PT oe /ILlegal d f t in file UETINIDEV.DAT!/ 
. egal record format in s ! 
72 SF 66 20 G4 72 GF 65 65 72 20 GC O15F att oie “ 
20 65 6f 69 66 20 6E 69 20 74 61 6D 3198 
41 44 2E 56 45 44 49 GE 49 54 45 55 017 
21 54 0183 
0185 218 
66 6F 20 64 6E 45 0000018D'010E0000' bi Be $3 ao -ASCID /End of 'UL with !UL it ti t !%D./ 
nd o ! i ! r 'ZD. 
£9 97 90 2C $8 34 SO ee oS Ol oD 20 6193 apne Bc craters 
61 72 65 74 69 20 4C 55 21 20 68 74 019F 
44 25 21 20 74 61 20 73 6E 6F 69 74 O1AB 
2E 0187 
0188 221 
0188 ssé INIDEV_UPDERR: ; Error during exit handler 
20 72 6F 72 72 4 Boot £0" 01058000" 0188 23 -ASCID /Error updating UETINIDEV.DAT./ 
54 45 55 20 67 6E 69 74 61 64 70 75 016 
2E 54 41 446 2E 56 45 44 49 GE 49 Ae 2 
01DD 25 THREEMIN: . ; 3 minute delta time 
FFFFFFFF 94862E00 3100 $$ -LONG -10*1000*1000*180,-1 
O1E5 28 HALFMIN: : 30 seconds delta time 
FFFFFFFF EE1ESD00 pie? 50 -LONG -10*1000*1000*30,-1 
O1ED 1 UNIT_DESC: ; Descriptor used to convert unit # 
00000005 Q1ED 3 . LON 5 
0000001A' gir 34 ADDRESS BUFFER+6 
b1ES 5 CONT_DESC: $ besgripter used to convert controller.. 
0000 0028 bife § eWORD REC_SIZE,0 : rom lowercase to uppercase 
00000014' nies , ADDRESS BUFFER 
1FD 239 FILE: ; Fills in RMS_ERR_STRING 
65 6C 69 66 00000205'010E0000' Nas rt eASCID /file/ 
88 4g RECORD: ; Fills in RMS_ERR_STRING 
64 72 6F 63 65 72 00000211'010E0000' 99 $7 -ASCID /record/ 
17 45 RMS_ERR_STRING: Announces an RMS error 
41 4 20 53 4D 3§ 000 27F 0105 0000" 17 46 -ASCID /RMS !'AS error in file ‘AD/ 
66 20 6E 69 20 7 of 4 3 65 5 
44 20 65 6C 69 1 


'XW,\- 


'XW, transfer size: 


DMF T8-SEp=19ee 12:08:55 LUeTPrsRcSUETOMPrOG.maR:2 2° (Sy 
/ 


/Controller designation?: 
-ASCID /Error setting characteristics of !AS./ 


.ASCID /Timeout while reading or writing !AS./ 

-ASCID /Errer starting up !AS as a controller./ 
-ASCID /Error starting up !AS as a tributary./ 

-ASCID /Error sensing characteristics of !AS./ 

~ASCID \I1/0 status block completion status: 


-ASCID /Timeout trying to start !AS./ 
.ASCID /Error writing to !AS./ 
-ASCID /Error reading from !AS./ 
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Vbac001 Read/Write D 18-SEp-1 986 9:64:98 UETP.SRC CETDMPr OR. MAR;2 ” (4) 
-SBTTL Read/Write Data 
0000 -PSECT RWDATA,WRT,NOEXE,PAGE 
0000 TTCHAN: won 0 ; Channel associated with ctrl. term. 
FLAG: ; Miscellaneous flag bits 
0000 -WORD 0 : (See Equated Symbols ie definitions) 
FAO_BUF: ; FAO tput stri d ipt 
0000 OOFA vee WORD TEXT BUFFER, 0 eat Sta, Pepe ac! 
00000014" -ADDRESS BUFFER 
BUFFER_PTR: 3 ake -ASCID buffer for misc. strings 
0000 OOFA «WORD TEXT _BUFFER,O > A word for length, a word for desc. 
00000014" S ADDRESS BUFFER 
BUFFER: ; FAO output d oth isc. buff 
0000010€ .BLKB TEXT_BUFFER Hessen nese cae tice 


ALT_FAO_BUF : ; FAO output string descriptor... 
os ing ASTs 


0000 OOFA ~WORD  _TEXT_BUFFER,O -during 


0000011E' “ADDRESS ALT “BUFFER 
ALT_BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 OOFA WORD TEXT_BUFFER,O : A word for Length, a word for desc. 
0000011€ “ADDRESS ALT~ BUFFER ; Used during ASTs 


ALT_BUFFER: FAO output and other misc. buffer... 


MN HS SS S QOOOOOOOCOCOCOOCOOOOOOoOwNwM 
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POOP IMM S AOAXP NNO OOOO DOOM MM SAOOOSMMMM LS LOOOMOWL LE & 


00000218 -BLKB TEXT_BUFFER ; ..-during ASTs 
DEVDSC: ; Device name descriptor 
0000 000A -WORD MAX_DEV_DESIG,0 
00000237' «ADDRESS DEV_NAME 


PROCESS_NAME : ; Process name 
eASCID /DMPF/ 


PROCESS_NAME FREE = MAX _PROC_NAME~<.-8-PROCESS_NAME> 
-BLKB ~PROCESS_NAME_FREE 


DEV_NAME : Device name buffer 
.BLKB MAX_DEV DESIG#MAX _UNIT _pésié 
NAME_LEN = 7-DEQ_N 


DIB: ; Device Information Block 
-WORD DIBSK_LENGTH,O 
ADDRESS DIBBOF 


46 50 4D 44 00000228'010E0000° 


0000 0074 
0000024E' 


DIBBUF : 
000002C2 -BLKB DIBSK_LENGTH 

ERROR_COUNT : ; Cumulative error count at runtime 
00000000 -LONG 0 

STATUS: ; Status value on program exit 
00000000 -LONG 0 


NOU SW 0 ODO UNE WIN 9 OD NAME WIN 0 OD NAME WIN OOD NIAU EWN 0 OO NOU Wir 
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1 
4) 
; 10 status block for misc sys. svcs. 


CA 358 QUAD_STATUS: | 


00006000 00000000 & 22 0 
D 1 INADDRESS: ; SCRMPSC address stora 
00000000 00000000 8 ee “LONG 9,0 scninens 
DA OUTADDRESS: 
00000000 00000000 DA re -LONG 0,0 
E 96 UNIT_NUMBER: ; Current dev unit number 
0000 ; ? -WORD 0 
£4 63 DEVNAM_LEN: ; Current device name Length 
0000 52 ty .WOR 0 
Ee iG: ITERATION: ; # of times all tests were executed 
00000000 8 E6 7 -LONG 0 
EA 74 
O2EA 75 PASS: 3; Pass count 
00000000 0 5A 6 -LONG 0 
6 EE 78 MSG_BLOCK: ; Auxiliary SGETMSG info 
000002F 2 8 E 4 -BLKB 4 
0 3 Hi EXIT_DESC: 3; Exit handler descriptor 
00000000 8 € Hf . LON 0 
444573 F6 8 ADDRESS EXIT_HANDLER 
00000001 O2FA 84 ‘ 
000002C6' 8 4 Bg ADDRESS STATUS 
O30 7 ARG_COUNT: ; Argument counter used by ERROR_EXIT 
00000000 030 88 -LONG 0 
0306 89 
0306 90 XD_CHAN: 3; DMP/F circuit channel 
0000 8 88 4 «WORD 0 
0308 38 BUF _LEN: ; Length of primary chars 
0000 Bene iy -WORD 0 
030n 396 BUF _DESC: ; Get channnel char buffer descriptor 
00000074 030A 97 «LONG DIBSK_LENGTH 
00000312" p30 a8 "TONG CHAN_BUF 
3) 400 CHAN_BUF : ; Channel char buffer 
00000386 1 2 1 -BLKB DIBSK_LENGTH 
6 4 i P1BUF : ; Pl Device char buffer 
00000000 00000000 ; ? : -QUAD 0 
—E 4 $ TR_P1BUF : ; pl buufer for trib 
00000000 00000000 5 ? i -QUAD 0 
96 409 P2BUF_DESC: 3; P2 extended char buffer 
BO 00 OOOE, 96 410 LONG 2BUF_LEN 
000039€E * u oi) ODRESS. P2BUF 
9E 418 P2BUF : ; P2 extended buffer 
0458 9E 414 -WORD NMASC_PCLI_PRO ; Protocol mode 
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Vbu-001 Read/Write Data 18-Sep-1986 93:04:55 LORTPrsRCUETDMPrODoMaR:2 29° [2, v04: 
00000000 re aE «LONG NMASC_LINPR_POI ; DDCMP proint-to-point mode 
45 AG 41 «WORD NMASC_PCLI_CON ; Controller mode 
0000960 ry £18 LONG NMASC-LINCR_LON 3; Loopback mode 
0000000C “e ? 9 P2BUF_LEN = .=P2BUF 
AA 4 § TR_P2BUF _DESC: ; P2 extended char buffer for trib 
Ht AA 4 TLONG TR_P2BUF_LEN 
00000382' . ? : -ADDRESS TR_P2BUF 
B 4 § TR_P2BUF : ; P2 extended buffer for trib 
0474 B © -WORD NMASC_PCCI_TRI ; tributary address 
00000001 368 ? § -LONG 1 3; Address 
00000006 a 4 p TR_P2BUF_LEN = .-TR_P2BUF 
38 4 ¢ ernie thee“ ; Pl buffer for sense mode test 
00000000 00000000 305 oe? QUAD 0 
$00 435 SENSE_P2DESC: ; P2 buffer descrip for sense mode test 
00000 3 8 CO 436 -LONG SENSE_P2LEN 
000003c8' Bate rH -ADDRESS SENSE_P2BUF 
a38 439 SENSE dean “f ; P2 buffer for sense mode t 
00000458 C8 440 <3#24> ; 8 quad quad words for , te Slasention 
00000090 Bee ree SENSE _paten . *SENSE _P2BUF 3 P2. buffer Length 
g43 10 ERRTST_P2DESC: ; P2 desc for error test 
00000008' 045 444 -LONG ERRTST_P2LEN 
00000460' Be 2k ree -ADDRESS ERRTST_P2BUF 
00000668 rt Gey ERRTST het “1 ' ; P2 buffer for error test 
00000008 ies 449 ERRTST _poLEN = .-ERRTST_P2BUF 
ies 451 ERRCOUNT_DESC: : Error counter buffer descrip 
00000200" 046 $2¢ [LONG ERR 
00000470° oGk $2? - ADDRESS ERRCNTS LEUF 
000067 cr oR2 ERRCNT_BUF : 64 ; Buffer for error counters 
bo000800 ero 437 ERRCNT_LEN = .~ERRCNT_BUF ; Buffer Length 
or re XD_IOSB: ; Q10 10 status block for transmit 
00000678 of $69 -BLKQ 1 
00000680 th 186 RCU_J008: an , ; Q10 Io status block for receive 
6 464 j 
6 465 XMIT_BUF: ; Transmit buffer 
00000880 188 -BLKB MAX_MSG_LEN 
$98 RECV_BUF : ; Receive buffer 
00000A80 : rf} -BLKB MAX_MSG_LEN 
A tn BAD_DATA: ; Received wrong data 
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EP] 32 9}: 63; 82 OETP SRC SET DMPF OO. MAR; 2 . (4) 
47 -BYTE 0O 
258 
the GOOD_DATA: ; Data sent (good) 
47 -BYTE 0 
478 
47 
428 ; 
rt 4 ; Head of self-relative UETP unit block queue. 
? 1 -ALIGN QUAD 
4 ‘ UNIT_LIST: ; Head of unit block circular List 
ri ¢ «QUAD 0 
486 NEW_NODE ; Newly acquired node address 
487 QUAD 0 


8! 
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v04-001 $32 Data Structures mie} 93:83:82 UETP.SRC Cro OMOr On MAR: 2 ree tg 


A9 489 -SBTTL RMS-32 Data Structures 
02 i «ALIGN LONG 
Ag 492 SYSIN_FAB: 3s A FA Y P 
“ rk ie te Llocate FAB for SYS$INPUT 
” t3e FNM = <SYSSINPUT> 
AE 496 SYSIN_RAB: 3; ALL te R f Y NPUT 
rt £38 mien ocate RAB for SYSS$INPU 
AE 138 FAB = svsin fF Ae.° 
AE 49 ROP = PMT,- 
AE 0 PBF = PROMPT,=- 
AE 1 PSZ = PMTSIZ,=- 
AE § UBF = DEV NARE 
A e i USZ = NAME_L 
3 C 308 INI_FAB: 3; Allocate FAB for UETINIDEV 
B2C : $ SFAB- 
0B2C 0 FAC = <GET,PUT,UPD>,- 
OB2C 508 RAT = CR 
0B2C 309 SHR = <GET,PUT,UPI>,- 
OBeC 10 FNM = <UETINIDEV.DAT> 
gare $18 ane ; Allocate RAB for UETINIDEV 
0B7C 314 FAB = INI_FAB,- 
0B7C 15 RBF = BUFFER,=- 
pare 218 UBF = BUFFER,- 
087° 317 USZ = REC_SIZE 
OBCO 519 DDB_RFA: ; RFA storage for INI_RAB 
o0000ecé 98¢0 ‘ ‘BLKB 6 . ‘ 
OBC 5 -ALIGN LONG 
OBC 5 é SUP_FAB: ; Allocate FAB for UETSUPDEV 
OBC 524 $F AB- 
C 5 FAC = GET,=- 
C 6 SHR = <UPI,GET>,- 
C RAT = CR,- 
gB¢ 8 FOP = UFO,- 
a ; FNM = <UETSUPDEV.DAT> 
C1 13 
C1 § 3 Pumay FAB and RAB to copy to the UETP unit blocks : 
3 7 ; The following FAB and RAB must be contiguous and in this order! 
(1 .* 
C1 § DUMMY, FAB: 
f ee 
C6 § DUMMY _RAB: 
C6 40 SRAB RSZ = WRITE_SIZE,- 
C6 541 USZ = READ_SIZE 
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BB Oe ea Oo eo betes ie etn kee ee en on Bena 
DONO u DOONAU EWN SO ODO NAU EWN SOOO NAUNE WD 0 OD NAUE WS OOONOULS Ww 


—h— Tle l me) 


-SBTTL Main Program 
-PSECT DMPF,EXE,NOWRT,PAGE 


«DEFAULT DISPLACEMENT ,WORD 
-ENTRY UETDMPFOO, “*M<> 


SSERROR , (FP) 


SSETSFM_S ENBFLG = #1 
ESBLK = EXIT_DESC 


C 
DE 
DE 
M 


DE 

PROC_CONT 
#SS$"BADP 
NO_CTRLNA 


#VETPS_TEXT!STSSK_ERROR 


ERROR_EXIT 


" DEVNAM_LEN, DEVDSC 
DEVDSC 


ete 
6 My rt pa 


AME- 

TESS_RAME_FR 
#PROCESS NAME _F 
R2 RI 


EP=19 


A,- 
ABSL_DEV,10$ 
ONTROLLER, - 
VNAM_LEN,= 
vos 


NAME 
RRAM, STATUS 
ME 


EE, 
REE, 


1:24: AX/VMS Macro V04-00 Page 15 
93:89:98 UETP.SRCJUETOMPFOO.MAR;2 . (6) 
3; Entry mask 


Declare exception handler 

Enable system service failure mode 
Declare an exit handler 

Open SYSSINPUT 


Connect RAB to SYSS$INPUT 


; BR if SYSSINPUT is NOT a terminal 


Bete 


Allow terminal user to specify... 
—— ety name... 

»--for the controller to test 

Was a controller specified? 

BR if it was - go process it 


Read SYSSINPUT... 
---for the controller name 


; Save the name Length 


BR if we got ecsethras 
Save an exit status if not 
Prepare for message... 
++-arg count 

«+eSignal name 

«+-arg count 

---go tell of bad setup 


Set the device name length 
Make sure... 
---that the specified controller... | 
-»-1S all uppercase for Later comaparison 
Estimate the eventual... 
++-process name Length (incl. ‘'_"") 
Locate first available byte... 
e+e1M process name handle... 
---for device name 
Will the device name fit... 
e2-in the remaining space? 
BR if it will ; 
; Overwrite handle otherwise... 


R1,RO : 
#MAX_PROC_NAME ,PROCESS_NAME ; ...and define the maximum length 


#*A/ / 


.(RO)+ 
DEVDSC.DEV_NAME , (RO) 
-(SP) 


TEST_NAME 
© 


Separate handle from device name 
Concatenate handle with device name 
Set the time stamp flag 
Set the test name 

he argument count 


; Push t 
#UETPS_BEGIND!STSSK_SUCCESS ; Set the message code 
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16-SEP-1984 226: AX/VMS Macro vV04-00 
18-36-1382 93:83:92 UETP.SRC SESDMEEOD MAR: 2 
CALLS #4 ,G*LIBSSIGNAL ; Print the startup message 
Bi2¥ #BEGIN MSGM,FLAG ; Set flag so we don't print it again 
SETPRN_S PRCNAM = PROCESS_NAME :; Set the process name to UETDMPFOO_x 
BBC S“#DEVS$V_TRM,- ; BR if SYSSINPUT is NOT a terminal 
SYSIN FAB+FABSL DEV, 20$ 
SGETDVI_S DEVNAM = SYSSINPUT,- =; Get the name of... 
EFN = #SS_SYNCH_EFN,=- ; ...device which may abort test 
ITMLST = INPOT_ITMEST,- 
10SB. = QUAD_STATUS 
BLBC QUAD_STATUS,20$ ; Avoid CTRL/C handler if any error 
SASSIGN_S DEONAR = BUFFER PTR, : Set up for CTRL/C AST handler 
= 
$Q10W_S CHAN = TTCHAN,- : Enable CTRL/C AST's... 
FUNC = #10$_SETMODE! 1OSM_CTRLCAST,- 
P1 = CCASTHAND 
ae eae ata 3 ..-and tell the user... 
PUSHL aETPS ABORTC!STSS$K_SUCCESS ; ...how to abort gracefully... 
CALLS #3,G*LIBSSIGNAL Tal 


dD 2 
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| UETI 
4 01:24: AX/VMS Macro V04-00 Page 17 
v04-001 Main Program 1 ~3Eb=1$8¢ 93:63:98 UETP. SRC GETDMPFOO MAR; 2 > U3 | v4 
15¢ ; | 
13¢ 3 ‘ ; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which eye controller 
13C 624 ; and unit configuration and lets us know if the setup to run this test was | 
13¢ ? 5 ; done correctly. 
15C 6 : SOPEN FAB = INI_FAB,=- : Open file ‘UETINIDEV.DAT" 
15C 608 ERR = RMS-ERROR 
Bes 629 SCONNECT RAB = INT_RAB,- ; Connect the RAB and FAB 
168 630 ERR = RMS-ERROR 
Q17A 631 SMGBLSC_S INADR = INADDRESS,- ; Connect to UETSUPDEV global section 
O17 634 RETADR = OUTADDRESS,- | 
017A 6 GSDNAM = SUPDEV_GBLSEC,- 
017A 8634 FLAGS = #SECSM_EXPREG 
00000978 8F 50 »d1 0199 a CMPL RO, #SS$_NOSUCHSEC ; Was the section already there? 
37 12 «O1A0 636 BNEG ©. 30 : BR if it was... 
Bias 637 SOPEN FAB = SUP_FAB,- 3 «else open ‘UETSUPDEV.DAT"’ 
0142 638 ERR = RMS-ERROR 
01B1 639 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
0181 640 INADR = INADDR - 
01B1 641 RETADR = OUTADDRESS,- 
0181 64¢ GSDNAM = SUPDEV_GBLSEC , - 
git tz 308 FLAGS = #SECSM_EXPREG! SECSM_GBL 
56 O2DE'CF O2DA'CF (C3 gee 942 SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
O1E1 647 FIND_IT: 
O1E1 648 $GET RAB = INI_RAB,- ; Get the first record 
O1E1 649 = RMS"ERROR 
O1FS'CF DF O1FO 650 PUSHAL CONT_DESC ; Make sure... | 
O1FS'CF DF O1F4 651 PUSHAL CONT_DESC 3 «that the controller name... 
OOO00000'GF O02 FB O1F8 636 CALLS #2,G™STRSUPCASE i «seis all upeerease letters 
0014°CF 44 BF 91 OFF 65 CMPB #*A/D/ BUFFER ; Is this a DDB? 
27 613 0205 654 BEQL : Go on if not 
0014'CF 45 8F 91 0207 655 CMPB #*A/E/ BUFFER 3; Is this the end of the file? 
D2 12 0200 656 BNEQ FIND If : Continue on if not 
0218'CF ODF aso 657 PUSHAL DEVDSC ; Push device not supported message 
O220'CF DF 0213 658 PUSHAL PROCESS_NAME ; Parameters on the stack 
02. oD Tat4 659 PUSHL #2 
00748333 8F DD 0219 660 PUSHL #UETPS$_DENOSU : 
02 FO bgit 661 INSV #STSSK_ERROR,- ; Set the severity code... 
00 0221 66 #STS$V~SEVERITY,- 
6— 0 0222 66 #STS$S_SEVERITY, (SP) 
O2c6"CF 6€ DO 0224 664 MOVL (SP) STATUS 3 ...and save it as the exit status 
of 9 665 PUSHL 
0953 1 ; 208 108 BRW ERROR_EXIT ; Exit in error | 
0237°CF OO1A'CF O2E4°CF 73 f 998 ee hap LEN ,BUFFER+6,DEV_NAME : is this the right controller? 
: no 
OBCO'CF OB8C'CF gs A 670 MOVC3 #6,IRNI_RAB+RABSW_RFA,DDB_RFA ; Save the Record File Address 
OO1s"CF 54 BF 91 842 671 CMPB) = #*A/T/[BUFFER+4 7 Can we test this controller? 
aF 13 & 67 BEQL FOUND_IT ; BR we can... 
4A 67 S$FAO_S CTRSTR = DEAD CTRLNAME,- ; ...and yell at user if we can't 
4A 674 OUTLEN = BUFFER_PTR,- 
4A 8675 TBUF = FAO BUF,-=- 
4A 976 = #DEVDSC | 
O2cé'cF 14 D0 0263 67 MOVL #SS$_ BADPARAM,STATUS ; Set return status 
OO0C'CF OF 68 678 PUSHAL BUFFER_PTR Btn 


ee oi 7 
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4 DD 6C 144 PUSHL #1 bose 
00741132 8F Be of ? 9 pueue ayetPs. TEXT! STSSK_ERROR bees 
090 Rt , ? ¢ BRw ERROR_EXIT ; We can't test what we can't test 
79 684 FOUND_IT: 
79 = 685 $GET RAB = INI_RAB,- ; Get a record 
79 6 : RR_= RMS-ERROR | 
O1FS'CF OF ge 6 PUSHAL : T_DESC ; Make sure... 
O1FS'CE ODF C one PUSHAL CONT DESC 3 «e-that this Line... 
00000000'GF 02 FB 30 689 CALLS #2 “ers TasuPcAsE 7 saetO_ Okt ues" letters 
OO14'CF 55 oF 91 0297 690 CMPB) ss #*A/U/,B : Is this a 
4 13 0290 691 BEQL ; BR if it 
ON14'CF 44 ef 9} 0 F 69 CHPB #*A/D/,BUFFER : Is ois 2 a S08? | 
0014'CF 45 8F 91 O2A7 694 CMPB #*A/E/ BUFFER 3 is this the end? 
11 13 Q2AD 695 BEQL 20$ ; BR if yes 
O2AF 696 10$ 
O1S1°CF DF O2AF 697 PUSHAL ILLEGAL_REC ; Then this is an error in the record 
01 ODD 0283 698 PUSHL # ; Push the error message 
00741132 8F DD 0285 699 PUSHL M#UETPS_TEXT!STSSK_ERROR ; Push the signal name | 
03 DD O2BB 700 PUSHL # ; Push the temp arg count 
08C1 31 o5e0 44 208 BRw ERROR_EXIT ; Finish for good 
0123 31 He ree 308 BRW ALL_SET ; Found DOB or END 
OO18'CF 54 BF 91 ge 705 CMPB #*A/T/ ,BUFFER+4 3; Is the unit testable? | 
AE 12 02C9 706 BNEQ FOUND_IT : BR if not 
01 DD ps ce 707 PUSHL #1 ; Flag to ignore blanks when converting 
02 dD O2CD 708 PUSHL #2 ; Set byte size of results 
O2E2°CF OF psce 709 PUSHAL UNIT munaen ; Set address to receive word 
O1ED'CF DF O2D3 710 PUSHAL U ; Push string address 
QO0000000'GF 04 FB O2D7 #£«711 CALLS #4, GFOTSSCVT. TILL 3 Convert ASCII unit # to Soe tees 
CE 50 a4 O2DE re BLBC R ; Don't allow bogus unit to pass 
05 20 8 rr. - 2 SKPC #*A/ /,#MAX_UNIT_DESIG,- ; Find out where unit number really is 
OO1A'CF E4 714 BUFFER+6 
0 e O2E7 715 DECL R ; Units must all be at least one digit 
61 50 0 E9 716 SKPC #*A/0/,RO,(R1) : Skip Leading zeroes = ee unit 
0 06 ED 717 INCL RO ; Compensate for DECL a 
0218°CF O2E4'CF 50 Al EF 718 DDE3 RO,DEVNAM_LEN,DEVDSC ; Calculate device’ mts "string \e Length 
2s O2E4'°CF 3C 6(O02F7 719 MOVZWL . VNAM LEN,R ; Offset to unit number in 
0237'C 61 50 28 BghS 720 MOoVC3 cy bev gene sae? : Append unit number to device 
03 r 1 SGETDEV_ g bev or = Beyosc.- 3; Get the device characteristics 
= | 
57 oe3e. cr 9A § 1 7 5 MOVZBL DIBBUF*DIBSB_ DEVCLASS,R7 ; Save the device class 
58 O2535'CF 9A O31C 726 MOVZBL DIBBUF+DIBSB_DEVTYPE, RB ; Save the device type 
1 725 SFAO_S CTRSTR = CS17- 
321 7 § OUTBUF = FAO_BUF,- 
1 7 P = R7,= 
1 fe P2 = R8 Make it into a string 
O2DA‘' DF 56 0014'CF 06 39 6 729 MATCHC #6,BUFFER,R6, @OUTADDRESS: “i the padi Be class and type 
1E 13 O33F 730 BEQL 408 ;'BR if it was found | 
41 731 SFAO_S CTRSTR = CS3,- ; Try for full class support | 
a 4 § OUTBUF = £0 BUF .~ 
= 
A‘DF 14°CF 6 9 54 734 MATCHC #6,BUFFER,R6,@0UTADDRESS ; Find the device class onl 
eee yi ee $6 3 Sp 0735 BNEQ 56 :°BR if not found : 
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F 736 40$: 
55 OpoF EE 9A ef 7 $ MOVZBL Test NAME ,R5 ; Get the test name ength 
0017"CF 6 5 <9 64 7 : CMPCS R5_(R3), TEST_NAME+8 : Are we the right tasel 
wy 6A 139 a 0$ : BR if y 
Oe 8 ce DF G ef 741 PUSHAL DEVDSC ; Push device not eunger see message 
O220'CF ODF re PUSHAL PROCESS_NAME ; Parameters on the st 
02 OD 0374 74 PUSHL #2 ; Push the argument ae 
00748333 8F DD 8 76 4 = 744 
02 FO 7 eS 
00 7E 746 #STSSV-SEVERITY 
Kk to. 7F 74 #STS$S— SEVERITY: (SP) ; Set the severity code. 
Ozcé'CcF 6E »DO 81 748 MOVL (SP), STAT : ...and save it as the exit stotus 
04 po ttt} 749 PUSHL #4 : Push the partial arg count. 
O7F6 1 038 750 BRw ERROR_EXIT 3 .e.and split this scene 


| 
PUSHL #UETPS_DENOSU 
INSV #STSSK-ERROR,- 

| 
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5 65 G9 Go GD 9 GD GD > GD OD O9 GD OD GH GD OD OD GD OD OD GD GD OD GD GD GD Go GD OD GD GD GD GD Gd GD Go GD GD Go GD > GD OD Gd GD GD OD ED GOED DED OT ED 


wr 


i | 


SINS SN NSSNA A AAA AAA AO MMIII 
OODWNAUE WN $0 OD NAUES WN $$ O OONAUE WN O OONOUS 


Sete Se Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Ge 


pe ee i i | 


+O. 00 Cd C9 00 G9 CD C0 CD CD. CD 


A 
in 


itialized. 


UETUNTSL_FLINK 
UETUNTSL_BLINK 
UETUNTSB_TYPE 
UETUNTSW_SIZE 
UETUNTSB_FLAGS 
UETUNTSW_CHAN 
UETUNTSW_FUNC 
UETUNTSL_ITER 
UETUNTST_FILSPC 


UETUNTSK_FAB 


UETUNTS$K_RAB 


UE TUNTSK_DEVDEP 


READ/WRITE buffers 


¢eweeseeccaes cowed 
: ; 
$eere awe cen ceca a $ 
! 
eweoe ase oae or of 
: | 
$ emo maaan -ooens 
Rn wea 
tewretucesroon + 
: : 
boos + beer mene = + 
Pes a 
i terecenee + 
Be 
dee scescen bo smwoe moe + 


ININININENING 
NAMS$C_MAXRSS byte 
WAVAVAVAVAVAVAVA! 


! ! 
4\IN/ 

FABSC_BLN byses 
INININININININZ! 


! 

INSV/VAV/VAV/NV/N 
RABSC_BLN bytes 
WAA\TVININININ! 


(uewecusesceenss + 
' ' 
INAV/AAAA/AAN/NAN I 
user defined 
tNAN/N/NININININ! 


+ 
' ' 
INVAAAVANANANANE 


user defined 
tINININININININE 


I/ 
It then init 


contains DEVDEP_SIZE + UETUNTS$C_INDSIZ 


om lowe SEI a8 


4 

The following code dynamically allocates 

; a device dependent parameter area and 
into the queue header UNIT_LIST. 

comment indicates where Ehe device dependent parameters should be 

The unit block format is as follows: 


o buff 


AX/VMS Macro V04 
UETP. SRC JUE TDMPF 


h memory for a unit block, 
rs. The unit block is inserted 


falizes the unit 


¢ ----- UETUNTS$SC_SIZE 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

v 

' 

ee DEVDEP_SIZE 
v 

' 

to---- WRITE_SIZE and READ_SIZE 


OO MAR: 2 


block. 


oe cia 


i 


Page 20 | 


(8) 


8 


VAX/VMS UETP DEVICE TEST FOR DMP th/*ome Hab Sat bS 9 93:64:93 AX/VMS Macro V04 


UE TDMPFOO 0 Page 
v04- ain Program ~SEP- U AR; 
Ba 001 Main P SE ETP. SRC CE SDMPF OS. MAR; 2 ° 
B 60S: 
4 63 SEXPREG_S peecnl © 2 NEW NODE ; Get a new node of demand zero memory 
A90'DF 5D 19 INSQT] @NEW NODE YNITLLIST : Put the new node in the unit list 
bA90" CF p0 A 1 MOVL NEW NODE, R : Save a copy of its address 
1 9 A 1 MOVB OETUNT$B_ TYPE (R6) ° set. the structure type 
boas F BO O3A 14 MOVW  #UETUNTSC IRDS12 +DEVDEP_§ SIZE, 
09 A6 B 15 UETUNTSW_SIZE(R6) Set. the structure size 
031 "CF 30 B 1 VB. DEVDSC.UETUNTST FILSPC(R&) : ; Set the device name size 
O218'CF 2 B 1 MOVC3 DEVDSC ,aDEVDSC+Z,- 
15 A6 O38F 18 UETUNTST FILSPC+1(R6) ; Save the device name 
009% 8F 28 0 cl 1 MOVC3 #F ABSC BCN+RABSC 
C18'CF C 0 DUMMY _FAB,UETUN £58 of ACRE) : Save a FAB and a RAB away 
0110 C6 iE 0 CB 1 MOVAL UETUNTSK FAB(RG) -R? ; Save the FAB address 
0160 £6 D 00 : MOVAL U TUNTSKRAB (RE) RB : Save the RAB addre 
3c AB D 3D MOVL  R7,RABSL~FAB(R8) : Set the FAB eddress 10 the OAS 
14 A6 «690 «0309 4 MOVE UETUNTST~FILSPC(R6),- 
34 A7 930¢ 5 FABSB_FNS(R?) : Set the FNS field in the FAB 
15 A6 DE O3DE 8 6 MOVAL UET TUNTST FA SPC+1(R6),- 
2C A? O3e1 8 + FABSL_FNA(R?) : Set the FNA field in the FAB 
O3E3 4 Ri ; Set the device dependent parameters in here 
I ; Do the nex 
FE93) «31 «O3E3.—s B31 BRW FOUND_IT Do th t UCB 


2 
UE TDMPF 00 VAX/VMS UETP DEVICE TEST FOR DMP hy DMF 16-SEP-1984 01:24: AX/VMS Macro v04-00 Pp VETI 
V6 ac001 Main Program 1ersEem abe Soigsige FORCUMS Macro NOtCOO © «Page 2%. 


E6 3 3 
E 4 ; Arrive here when we have the device configuration. In normal or loop forever 
E 5 ; mode, set a timer far enough in the future oven that we can do a reasonable 
E § ; set of tests before the timer expires, but if our device gets hung, the 
E ; program won't waste too much time before noticing. Let one-shot mode be a 
E 8 i Special case. 
E6 : 
E6 840 ALL_SET: | 
OABB'CF DS E6 4] TSTL UNIT_LIST ; Anything to test? 
” EA ‘4 BNEQ 0$ ; BR if yes 
O12B'CF OF EC 4 PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
ih DD F 44 USHL 3; «+-argument count... 
00741132 8F Dd F 45 PUSHL Bye TR TERT ISTEOR SOREE ; «Signal name... 
03 DD 8 F 6 PUSHL # : 
O2c6'cF 14 900 FA 4 MOVL #SS$_BADPARAM, STATUS : 
O77F 31 brit rt} 108 BRW ERROR_EXIT 3; ...and give up, complaining 
0002'CF 04 AB 0402 850 BISW2 #SAFE_TO_UPDM,FLAG ; OK safe to update VETINIDEV.DAT now 


«+-8Nd parameter count 
Set return status 


Tae = 7 
2 | 
TDMPFOO VAX/VMS UETP DEVICE TEST FOR DMP 11 DMF 16-SEP-1984 01:24: AX/VMS M v04-00 Page 23 VETC 
Yiee00t Test the DMP/DMF 18-SEpq19be fo:bSi5e FORTE SR Se SpMorop MaR:2 29 Hy vou" 
: 4 28 -SBTTL Test the DMP/DMF 
407 34 START_TEST: 
407 2$ SASSIGN_S = ; Assign channel to the device 
407 85 DEVNAM = DEVDSC,- 
407 38 CHAN = XD_CHAN 
ee 
22 28 EB 041 61 BLBS RR. 198 ; BR if no failure 
02C6'CF 0 »p0 118 66 MOVL RO,STATUS ; Save the failure status 
beeeree BB tee ge EusthSTAT “sp tena orgs 
0218'CF DF 0428 865 PUSHAL DEVDSC : .eand the device designation... 
OOOF'CFE DF 04 66 PUSHAL TEST NAME ; «s-and the test name... 
03 DD 04 67 PUSHL # ++ -and the arg count... 
0074819A BF DD 04 28 PUSHL #UETPS_DEUNUS! STSSK_ERROR : ..eand the signal name... 
06 D 04 4 PUSHL #6 3 «and the total argument count... 
0744 1 hes ary 108 BRW ERROR_EXIT ; «and bail out completely 
0430 872; 
ot e75 ; Set up P1 device char buffer, P2 buffer is set up in Read/write section 
043D He RESTART: 
53 O388'CF DE 043D 876 MOVAL PIBUF+42,R 3; Address of device cher for pl 
83 0200 8F BO O4ue 877 MOVW  #MAX mse cen, (R3)+ ; Maximum message Length 
6 02 90 reef a8 MOVB #XMSA_CHR _LOOPB, (R3) 3; Set loop back mode in char 
044A +H SSETIMR_S - : Set up half minute timer 
044A 81 DAYTIM = HALFMIN,=- ; to prevent hung 
044A B8¢ ASTADR = TIME ERR_OUT,- 
044A 88 REQIDT = #START_TO_MSG 
0461 4 START_CONT: 
0461 HH $Q10W_S - ; Start the controller 
0461 86 CHAN = XD_CHAN,- 
0461 887 FUNC = #108 SETMODE ! 108M _CTRL! 10$M_STARTUP,- 
0461 Ht ASTADR = CHK Qf0 
0461 890 ASTPRM = aSTARI OPONT. PRM, ~ 
0461 +891 Pi = P1BUF 
461 89¢ P2 = #P2BUF DESC 
0461 93 p3 = PRECYPODE® $2 
49 835 START_TRI: 
49 38 $Q10W_S - ; Start the cributary 
49 9 CHAN = xD. CHAN 
49 98 FUNC = #10$ SE TMODE ! 10$M_ STARTUP, - 
9 9 OSB = XD_10SB,- | 
49 00 ASTADR = CHK Qf0 
49 01 as STP PRA = BSTRRT ORB PRM,- | 
492 9 : re = TR Pe ebuE _DESC,- | 
rts : PS = #RECVPOOL-SIZ 3; Common receive pool = 4 buffer 
0002'cF 20 a8 04C3 9 6 BISW2  #FLAG_SHUTDNM, FLAG ; Set flag to say shut down the 
4C 9 : device if errors occur 
4C 908 


K 2 
AX/VM TP DEVICE TEST FOR DMP 11/ DMF SEP-1984 AX/VMS Macro V04-00 Page 24 VETE 
y ht Test the BRP /pait : 18: -SEP-1984 93: 83; 9 UETP.SRC SESDMEE ON MAR; 2 . itp vou" 
tc8 9° SCANTIM_S REQIDT = #START_TO_MSG ; Cancel hung timer 
407 11 STRNLOG_S LOGNAM = MODE,- ; Get the run mode | 
4D7 1 RSLLEN = BUFFER PTR,- | 
red giz RSLBUF = FAO_BUF | 
0014'CF 0 eA arg 915 BICB2 #LC_BITM,BUFFER : Convert to upper case 
OO14'CFE 4F d 7 re ig cnes hang ; Le fais a one shot? 
0002'CF § As 4FD 218 BISW #TEST_OVERM, FLAG End ateer one iteration 
$003" EF 19 AB 05 g 91 isu #MODE 1S_ONEM, FLAG ; Set mode js ‘ONE’ flag eae 
001 31 0307 4 9 108 BRW PBACK_TEST ; skip the i ain timer, mode is ‘‘one 
: ; Not one sho 
OSOA 9 ¢ SSETIMR_S DAYTIM = THREEMIN : Set 3 minutes timer for xmit/recyv 
OS0OA 9 ASTADR = TIME_SUC “our ; The test will do xmit/recyv for about 
ah 4 : ; 3 minutes 
a81D 2 gi: ; Loopback test transmit and receive random data with different message Length 
9510 958 LOOPBACK. TEST: | 
52 AA 8F 9A 051D 929 MOVZBL #*XAA,R ; Random number 1 
53 E 9A 0521 950 MOVIBL #*X2E,R 3; Random number 2 
57 00000200 gf DO 0524 £931 nov. #MAX _ASG _LEN,R7 ; Maximum message Length | 
0528 336 SET_XMIT_ BUF : Set up transmit buffer 
56 O680'CF DE 0528 93 ROVAL XMIT_BUF ,R6 ; Transmit buffer address 
54 57 00 Be 0 oes 108 R7,R& : Message length in bytes 
- Be $335 33 : ADDL? RS. R2 ; Random number as data 
86 5ze 90 0536 937 ove (R6)+ ; Fill in the transmit buffer 
F7 54 —SoF 5 Beer 3 SOBGTR Ra. *10$ ; Branch if more bytes to be filled 
053C 940 SSETIMR_S - ; Set half minute timer to prevent hung 
053C 941 “DAYTIM = HALFMIN,-=- 
053¢ 94 ASTADR = TIME ERR OUT,- 
p2e6 ot7 REQIDT = #RW_TO_MSG 
58 10 00 8232 $3? waite MOVL #LIMIT,R8& ; Loop 16 times for each msg length 
0556 94 "  $Q10_$ = ; Transmit data message 
0556 948 “ ive # matt EFN,- ; Event flag 
0556 949 CHAN ; Channel 
0596 950 FUNC = F108 WRITEVBLK,- : Transmit 
556 = 951 IOSB = XD_I0SB ; 1088 
5 326 STADR = CHK afo AST,- ; Completion ast routine | 
pace 95 STPRM = TTE_PRM,- ; Ast parameter 
0556 954 P} = XMIT_BUF,- ; Addr of transmit buffer | 
b2ge $36 2 = R7 3 message Length in bytes | 
3 : $36 — $Q10W_S - ; Read data message 
581 95 EFN = #RECV_EFN, ; Event flag 
581 960 CHAN = XD gris - 3; Channel 
581 961 FUNC = #10$_READVBLK,- ; Receive message 
581 806 10$B = RCV_TOSB,- 3 
581 96 ASTADR = ReCy AST,- 3; Completion ast to check data received 
581 964 getres = R7,- ; Ast parameter = message length 
581 965 Pl = RECV_BUF,- ; Receive buffer 


| 
} 
————— 
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UE TDMPF OO VAX/VMS UETP DEVICE TEST FOR DMP by DMF 16-SEP-1984 01:24: AX/VMS Macro V04-00 Page 25 VETO 
Vba-001 Test the DMP/DMF 18-$Eb= 1 984 95:69:98 UETP.SRC GETDMPFOO MAR: 2 . ) VO4- 
8 366 P2 = R7 ; Message length in bytes 
O2E6'CF 06 n oe8 INCL ITERATION : Increment iteration count 
2A $70 SWAITFR_S EFN = #XMIT_EFN ; Wait until transmit done 
9—E 58 =F 5 28 3f6 SOBGTR R8&,XMIT ; Loop for 16 times 
58 974 SCANTIM_S - ; Cancel hung timer 
38 379 REQIDT = #RW_TO_MSG 
09 0002'CF 91 3 5¢7 359 BBS stes? OVERV,FLAG,SENSE_TEST ; Is the test over? 
03 57 ~«#6€*F ace 443 SOBGTR R7,10$ 3 syereness message length by one and 
3; try again 
FFGA 3] 0800 980 BRW LOOPBACK_TEST : Re-tre from beginning 
FF55 1 be02 3B) 10$: BRW SET_XMIT_BUF ; Set new data in tranmit buffer 
8208 ons SENSE_TEST: 
5D6 396-984 $Q10W_S - ; Read device (trib.) charracteristic 
bebe 985 CHAN = XD_CHAN,=- 
506 6986 FUNC = #10$_SENSEMODE,- 
0506 §=987 10SB = XD_10SB,- 
0506 988 Pi = SENSE _P1BUF,- 
0506 989 P2 = #SENSE_P2DESC 
OSFD 990 
O5FD 991 SFAO_S CTRSTR = SENSE PRM,- 
OSFD 99 OUTLEN = ALT_BOFFER_PTR,- 
OSFD 8699 OUTBUF = ALT FAO_BUF,- 
OSFD 994 P1 = #DEVDSC 
O116'CF DF 0616 995 PUSHAL ALT_BUFFER_PTR 
OBAS'Cr 01 FB pola 338 CALLS #1,CHECK_10SB ; Check status 
54 0672°CF 3C Sete 998 MOVZWL XD_I0SB+2,R4 ; Number of bytes returned for p2 buff 
55 O3B2°CF DE 0624 999 MOVAL TR_P2BUF,RS ; Address of P2 buff 
57 06 =—»0 06 ? 1000 a MOVL #TR_P2BUF_LEN,R7 : P2 Length 
56 O3C8'CF BE 062C 1006 ; MOVAL SENSE_P2BUF ,R6 ; Address of P2 buff returned 
66 54 65 06 9 0631 100 MATCHC #6,(R5),R4,(R6) 3; Check the parameters returned 
0 12 06 $ Ione BNEQ ; Br if not match 
55 O6A D 6 1005 MOVA 6(R5),R5 3; Next parameter 
57 06 te C 108 SUBL #6,R7 3 ex 
eB 1 65F 198 BNEQ 1 ; Br if more parameters to check 
OO1F 31 7) ! 38 30s BRW ERROR_TEST ; Otherwise go to test error case 
644 1 3 "  $FAO_S CTRSTR = SENSE_ERRMSG.- 
644 1011 OUTLEN = BUFFER _PTR,- 
644 1 \¢ OUTBUF = Ae BUF ,- 
644 101 = (R5Y,- 
644 1014 P2 = 2(R5§ 
0006-6 ef 65C€ 1015 PUSHAL BUFFER PTR ; Error mossege 
0235 1 of : 18 BRw FAIL_OOT ; Failure exi 
663 1 18 ERROR_TEST: 
ret, ' i? SSETSFM_S ENBFLG = #0 ; Turn off system service mode 
6C 1021; 
6c 1 A ; Read data with IOSM_NOW specified but no data available 


Mm 2 
UE TOMPFOO VAX/VMS a 4 DEVICE TEST FOR DMP 11/ DMF 16-SEP-1984 01:24: AX/VMS Macro V04-00 Page 
vatee Test the DMP/DMF 18-3 b= 882 93:83:98 UETP.SRC CESDMPE OR” MAR; 2 . dj 
et: 1023 ; 
C 1024 $Q10W_S - ; Read data message 
66C 1025 CHAN = XD tt 
6 eo : FUNC = #10 AtsGveLx: 108m _NOW,= 
¢3 1 10SB = xd_i0S 
66C 1 8 Pi = RES y-6U BUF 
885 1686 me e# 
0000870 8F 0 069 1031 MOVL #SS$_ENDOFFILE,R7 
5 967 gf Re 69A 1 § MOVZWL Kp _1058..R8 
8 B61 O069F 10 CMP RBOR ; Correct error code? 
38 412 O6A2 1034 BNEQ  ERRTST_ERR ; Br if not 
MBs 
Rone \3 ; ; Buffer not enough to hold all information from I10$_SENSEMODE 
06A4 1039 
06A4 1040 $Q10W_S - ; Read device (trib. ) charracteristic 
Q6A4 1041 CHAN = XD_CHAN,- 
06A4 ok FUNC = #10$_SENSEMODE,- 
06A4 ibe 10SB : ener 10sB = 
06A4 1044 Pi = 1BUF 
06A4 1045 P2 = sense et Padésc 
06CB 1046 
57 00000601 8F 0 06CB 1047 MOVL #SS$_BUFFEROVF ,R7 
8 9970" ¢F C 06D 19e8 MOVZWL XD_IOSB,R8 
5 58 Bi 0607 1049 CMPW R8,R7 3; Error code = buffer overflow? 
03 12 O6DA 1929 BNEQ ERRTST ; Error if not 
0099 31 Reet 193) Bhi READ SERRCOUNT ; Br to read and clear error count 
Bene 1988 ERRTST_ERR: 
OGAF'CF 28 O6DF 1054 MOVC3 COMP_STATUS_MSG ; We need an error message... 
0014'CF Rees ake 06E3 1055 cOMP~ STATUS “MSGi8, BUFFER. 
GAF'CF AS Q6E9 1328 SUBW3 COMP-STATUS-MSG,- 3 «..tO Compare... 
59 OOFA 8F Beee 105 #TEXT_BUFFER 
OOOc'CF 59 3C O6F1 1 38 mOVZUL RO, BUFFER_PTR 
0010'CF 53 »0 pore 105 R3,BUFFER_PTR+4 
6FB 1060 SOL TMSG S MSGID ="R7,- 3 «the error we expected... 
06FB 1061 MSGLEN = BUFFER. PTR, - 
of 1 ¢ BUFADR = BUFFER 
0010'CF OOOC 'CF co 1 106 ADOL BUFFER “PTR-BUFFER_ PTR+4 
59 OO0OC‘CF ae 71 1064 SUBW BUFFER-PTR,R 
4E7"CR 28 O71C 1065 MOVC3 RECEIVED_MSG,- 
4EF ‘CE 7 1 $6 RECEIVED _MSG+8,- 
010'°DF 7 106 + thi PIR+4 
010°CF 53 o0 726 1068 MOVL R3,BUFFER_PTR+4 
9 O4E7'CF A2 0728 1 9 UBW2 RECEIVED ASG,R9 
Oooc'cF 59 3C 0730 1070 MOVZWL_ R gGUEFER PTR 
7 1071 SGETMSG_S MSGID = R8,- 3 «eewith the one we received 
735 1 2 MSGLEN = BUFFER_PTR,- 
7 107: BUFADR = BUF FER- PTR 
OC *CF ni! 74A 1074 sueMe aye PTR,RI 
59 OOFA &F 9 A 74F 1075 UBW R -#TERT_BUFFER,R9 
9 3¢ 07 ; 107 MOVZWL R9,RO 
14°C9 £22 F BO 0758 107 Ve #*A/""./ BUFFERCROD 
‘Ste 2 A 75— 107 ADDW3 #2,R9,BUFFER_PTR 
10°CF 0014'CF DE 0765 107 MOVAL BUFFER, BUFFER_PTR+4 
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? 


" 
? 
? 
? 
| 
A 
A 


1 
1 
1 
1 
1 
1 
6 
6 


READ_ERRCOUNT: 


SQN 


NN 
>>> 
Ono 


Soy ALT BUFFER 


SFAO_S CTRST 
OU 


_— 


Pp 
an ALT BUFFE 


o 
ono 


IN SOS. OMMMMMAIAIOOOOoooow 
SYERSsscoos NmMmMmmmnmnoocolollMOowmown 


or— 
ES ees 
COOOOOCOCOCOCOOCCOOCOSOOOOCOCOOOOOOOOOC OOOO OOOOOOOOoOO 


Co 00 C900 Go Cd Od Co G9 C9 C9 C9 C908 SINS SIS SENN NNN 


PUSHAL BUFFER, PTR 


NAAQS MAWAI 


WSDOT AAA 


00000000000 00 00 G0 Co: 


0 
UETP.SRC See omer Oo MAR; 2 
ER_PTR ; Error message 
R8B,STATUS : Save our actual error as exit status 
FALL_OuT ; Failure exit 
SSETSFM -S ENBFLG = #1 ; Turn on system service mode 
$Q10W_S - ; Read and clear the error counters 
CHAN = XD_CHAN,= 
FUNC = #10$_SENSEMODE ! IOSM_RD_COUNT! IO$M_CLR_COUNT,- 
4958 = XD_10S8,- 
P2 = #ERRTOUNT_DESC 
SENSE _PRM,- 
TLEN = ALT_BOFFER PTR, - 
OUTBUF = ALT_FAO_ UF ,- 
= #DEVDSC 
PTR 
#1 ,CHECK_10sB 3; Check status 
#FLAG_SHUTDNM,FLAG ; Clear the shutdown flag 
$Q10W_S - ; Shut down the device 
CHAN = XD 
FUNC = #1 os ASE TRODE! 108K, CTRL! 10$M_SHUTDOWN, - 
10SB = x 1086 
R = SET_P 
TLEN = ALT BUFFER PTR,- 
OUTBUF = ALT~FAO_BUF,- 
= #DEVDSC 
FER_PTR 
#1, CHECK_10SB : Check status 
= MODE,- 
RSLLEN = BUFFER_PTR.- 
RSL BUF = FAO BUF 3; Get the run mode 
#LC_BITM, BUFFER 3; Convert to upper case 
¢a7L/ BUFFER : i fais ® loop for ever? 
: no 
#TEST_OVERM,FLAG ; Reset the termination flag 
PASS ; Bump the pass count 
CTRSTR = PASS _MSG 
OUTLEN = BUFFER PfR,- 
py Tour = FAO BUF,- 
P = PAS 
Pe 2 ITERATION,- 
Pp = #0 Make the end of pass message 


Push the string desc. 

Push arg count 

Push the signal name 

Print the end of pass message 
Reset the iteration count 

Do the next pass 


#UETPS TEXT: STSSK_INFO 

#3, G*LTBSSIGNAL 
TERATIO: 

RESTART 
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TDMPFOO VAX/VMS UETP pry ICE TEST FOR DMP iid DMF 1 AX/VMS Macro V04-00 Page 8 VETI 
vitae Test the DMP/DMF 18-3 sets 7 93 ‘63: 9 UETP.SRC SES DMPrOS MAR: 2 ° (i) v4" 
76 1137 108: 
56 OA88'CF wetecpemeaal ci 7 1} 8 Stith: ountt at ST ALT LEST RG ; Set the unit block List header 
OB A 1140 UETUNTS$SB_F ReS(Re)” Set the testable bit 
O2C6'CF 10000001 8F dO 1141 MOVL #Ss NORMAL ! STSSM_INHIB_ sg. STATUS ; Set ns Se exit status 
1366 SEXIT_S STATOS ; Exit with the status 
1144 FAIL_OUT: ; Failure exit 
4 DD 98 1145 PUSHL #1 ; Arg count 
00741132 8F 4 be 1198 pater ETPS_TEXT!STSSK_ERROR ; aa 
o2de 31 ay 1148 BR: ERROR_EXIT s irter actt 


000 
01 0670'CF 
01 


7E__0670'CE 
O2C6'CF  6E 
52. OG11°CF 

0253"CF 


05 
52 0393'CF 


ecer'st 


00741132 ar 
04 AC 


01 
00741132 8F 


CHECKIOSB = C 


>Pr>P 


ee ee ee eee ole el ole elololalololololo) 
0S CO OD C9 00 09 00 OD 00 0D OD C9 C0 09 0D CD CD CD OCD CD CO CD OD OD CD. 
FPP PrrrrrrrrrrrrrrrrrrYrPrY 


eisai de alee eee ew ee wee Ww Wwe Ww we) 


SeSe Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gees 
+ 


CHECK_IOSB: 
.W RD 


SESS SSeS 


Fatty 
of 


DO FWOMOMOOMAOOOOOO 
wiwonm 


VIAN > >>> >>> >rrrYr 
ODNAUES WN OS OD NAU EWN SO OO NAME WN OOO NOAOU EW OUOONAOUS WN @& 


ooco’J7 
hhh =] 
ps ery tet et BO NG ee 8 tet tre tet tert OPN RPS a Ye Oe ett eet tty > 


a a a ad ed ed dd od ed 8 dd Sd dd dd dd dd 8 dt 


FRIED II III DIN at st tt ti a dd dd 


OOOO OCOOCOOCOOCOOCOOOCOOOCOOOOOCOOOOOOoOoOoOoO 


OOO 000000000000 09 00 90 00 00 Co 09 Co Co 


om 
NOU EWN 


— 
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VAX/VMS _UETP DEVICE TEST FOR DMP hy DMF 16-SEP-1984 01:24:05 VAX/VMS M 4- 
ck 10 status block 10-SEP-1984 9:63:98 CIUET MP Bomar: 2 fr (33) 


UETP.SR 
-SBTTL CHECKIOSB - Check 10 status block 


FUNCTIONAL DESCRIPTION: 
This routine checks the 10 status block = #SS$_NORMAL 


CALLING SEQUENCE: 
CALLS) #1,CHECK_I0SB 


INPUT PARAMETERS: 
Address of error message 


IMPLICIT INPUTS: 
XD_IOSB is the I0SB from some $010 


OUTPUT PARAMETERS: 
NONE 


UE TDMPFO 


IMPLICIT OUTPUTS: 
Exit with status if IOSB not right 


; COMPLETION CODES: 


10 status in STATUS if error 


SIDE EFFECTS: 
Program exit if error found 


<R2> 
CMPW XD_I10SB,#SS$_NORMAL 3; Is the Q10 0.K.? 
108 ; Br if not 
; Return 


zw 

mz 

-—m vO 
o 

eee 


10$: 


MOVZWL XD_I0SB,-(SP) 
MOVL (SP), STATUS 
MOVAL DMP_{OSB_DUMP,R2 
CMPB. ss S*#BT$_DAP11,- 
DIBBUF *D1B$B. DEVTYPE 


BEQL 
MOVAL DMF_IOSB_DUMP,R2 ; Get a different string if not 


Push the error status code 
Set return status. 

Assume we're testing a DMP 
But are we? 


20$: 


SFAO_S CTRSTR = (R2),- : Get the 10SB in plain text 
OUTLEN = BUFFER_PTR,- 
OUTBUF = FAO BUF,- 
Pi = a#Xx0_1058,- 
P = a#XD710SB42,- 
P = @#XD~10SB+4.- 
PA = a#XD~10SB+5.- 
PS = a#XD"105B+6,- 
P6 = a#XD~10SB+ 

PUSHAL BUFFER_PTR 

PUSHL @ 

PUSHL #UETPS_TEXT!STSSK_ERROR 

PUSHL  04(AP) 

PUSHL 


# 
PUSHL #UETPS_TEXT!STSSK_ERROR 


TOMPFOO VAX/VMS UETP DEV te TEST FOR DMP iid DMF ! SEP-1984 AX/VMS Macro V04- Page 30 
VOac001 CHECKIOSB = Check 10 status block mi iSer 93; 83: 92 CUETP. SRCJUETDMPFOO.MAR; 2 . (12) 
D 091 1 PUSHL #7 Argument count 
0266 Rf O318 1308 BRw ERROR_EXIT 3 | ter exit 


3 
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Check Q10 AST Routine 


SCOSCOCOCOOSCOCOOSCOOOOCOOCOOCOOOCOOOOOOOOOO OOOO OOOOO 
DOOOOOOOOODODODODOOOOOODODOOODOODODOOOOOOOOOOONOO 
WWW = 2 hh hh hh hh 
MOMVTOTVVVTAWVWWVWVIVIWVIVIWVIWVIVOIVIVIWVIVIWVIOWVWOWVIOWVIVIOVIOIWVIWVOWIWIWOD 
a 
OOD NAU EWN 0 OO NOAM EWN 0 OD NOAM WN OOONOUE Wr 


0 
SEP-19 SEPOMEE GD MAR: 2 
ka -SBTTL Check Q10 AST Routine 
; FUNCTIONAL DESCRIPTION: 
: his routine will be called as a Q10 completion AST routine 
It checks 10 status block and the AST parameter 


; CALLING SEQUENCE: 
; Called via AST at $Q10 completion 


; INPUT PARAMETERS: 
; NONE 


UETP.SR 


; IMPLICIT INPUTS: 
: DEVDSC, ALT_BUFFER_PTR, ALT_FAO_BUF and ALT_BUFFER used in forming a 
potential error message. 


; OUTPUT PARAMETERS: 
; NONE 


; IMPLICIT OUTPUTS: 
; Error message if error 


; COMPLETION CODES: 
; 10 status in STATUS if error 


; SIDE EFFECTS: 

; Program exit if error 

BUFFER_PTR and BUFFER used if error 

¢HK_Q10_AST: 
«WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> =; Entry mask 

$FAO_S atyste @04(AP),- ; Form message for CHECK_I0SB 


UTLEN = ALT_BUFFER_PTR,- 
OUTBUF = ALT-FAO_BUF,- 
Pi = #DEVD 
PUSHAL ALT_BUFFER_PTR 
CALLS #1,CHECK_I0sB : Go check IO status block 


RET 


| 
| 
| 
| 


Page 


| 


UE TDMPF OO VAX/VMS UET 
Vbae001 Receive dat 


ou 
ro 
um 
-_—< 
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ee -SBTTL Receive data AST routine 
: FUNCTIONAL DESCRIPTION: 
This routine will be called as receive data AST routine 
It checks 10 status and compare the data in the receive buffer 
against the transmit buffer 


CALLING SEQUENCE: 
Called via AST at $QI0 READ 


INPUT PARAMETERS: 
AST parameter = message length 


IMPLICIT INPUTS: 
DE 


OOOOOOOOOOVOOOONOOOOO 
WAIAIWAIANI LINING 
TA on oo 


1253 
1254 
HE 
1589 
1258 
1259 
0 1 99 
0 1261 
aa 
126 
8 1264 
1265 
0 1 96 
8 ! tH VDSC and various text buffers are used in forming error messages 
0 i 1269 ; OUTPUT PARAMETERS: 
a as 
O93F 1 IMPLICIT OUTPUTS: 
O93F 127 Error message if error found 
O93F 1274 
O93F 1275 COMPLETION CODES: 
O93F 1 6 in STATUS 
O93F 127 
O93F 1278 SIDE EFFECTS: 
O93F 1279 Program exit if error found 
O93F 1280 
O93F 1281 ;-- 
O93F 1 Hf ECV_AST: 
OFFC O93F 128 .- WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
01 0678'CF B1 0941 1284 CMPW RCV_10SB.#SS$_NORMAL ; Is the QIO 0.K.? 
C 12 0946 1285 BNEQ 10$ ; Br if not 
O680'CF O880'CF 04 AC 29 0948 1286 CMPCS 4(AP),RECV_BUF,XMIT_BUF ; Compare the data 
2A 612 0951 1287 BNEQ 208 
04 0953 1288 RET 
0954 1289 10$: 
0954 1290 SFAO_S CTRSTR = READ_PRM,- 
0994 1291 OUTLEN = ALT_BUFFER_PTR,- 
954 1 3 OUTBUF = ALT FAO_BUF,- 
0954 129 P1 = #DEVDSC 
0670°CF O0678'CF 7D 096D 1294 MOVQ RCV_IOSB,XD_I0SB ; Set up a copy of our error status 
O116"CF DF 0974 1295 PUSHAL ALT BUFFER PTR 
FF28 CF O01 FB 0978 1 36 CALLS #1,CHECK_IOSB ; Take advantage of existing routine 
97D 129 ; Note that we will not return! 
097D 1298 
97D 1299 20$: 
7E 61 QA OQ97D 1 60 mMOVZ (R1),-(SP) : Save the bad data... 
7E 63 9A 0980 1301 movant (R3) ,-(SP) 3 «..-the good data... 
7E O04 AC 59 3 (09 1 8 SUBL RO,4(AP) ,-(SP) 3 «eethe offset of the mismatch... 
7E (0 £2 cF C 0988 1 MOVZWL UNIT NUMBER, -(SP) : ...the failing unit... 
0218'CF F 098D 1304 PUSHAQ bEVOSC 3 ...ethe device name... 
5 DD 0991 1305 PUSHL # ; «and the count of parameters... 
00748012 8F DD 0993 1 $ PUSHL #YETPS_DATAER! STSSK_ERROR ; ...for our error message 
7 D 0999 1 PUSHL @# 
01E3 1 99B 1308 BRwW ERROR_EXIT 


SFAO_S CTRSTR = a04(AP),- 
OUTLEN = ALT_BUFFER_PTR,- 


3 
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VOu5001 Half Minute Timer Rasteation Routine 18-SEP-1984 95:63:98 UETP.SRC SETDMPFOO™ MAR;2 
44: 1319 ., -SBTTL Half Minute Timer Expiration Routine 
99E 1 1§ 3 * FUNCTIONAL DESCRIPTION: 
99E 13135; his routine will be called only if the timer which was set to prevent 
44: ! \% 3 program hangs goes off. 
99E 1 1§ ; CALLING SEQUENCE: 
443 ! i ; Called via AST at SSETIMR expiration. 
99E 1319 ; INPUT Setant aaa 
144: ! y : O4(AP) Address of a descriptor for an error message 
99E 1 § ; IMPLICIT INPUTS: 
3443 } t ; DEVDSC and various text buffers are used to for error messages 
O99E 1325 ; OUTPUT PARAMETERS: 
O99E 1 § ; NONE 
O99E 1 : 
O99E 1328 ; IMPLICIT OUTPUTS: 
O99E 1329 ; Time out error message 
O99E 1330; 
O99E 1331 ; COMPLETION CODES: 
O99E 1 § 3 NONE 
O99E 1 : 
O99E 1334 ; SIDE EFFECTS: 
99E 1535 ; Program exit 
99E 1; 6; 
O99E 1337 ;-- 
O99E 1338 
099E 1339 TIME_ERR_OUT: 
OFFC 344 : rt WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,RIO0,R11> ; Entry mask 
1346 
134 
9A0 1344 OUTBUF = ALT FAO_BUF,- 
9A0 1345 Pi = #DE 
O116°CF DF OQ9B8 1346 PUSHAL ALT_BUFFER_PTR ; Set up our error message 
DD O9BC 1347 PUSHL #1 
00741132 8F DD O9BE 1343 PUSHL M#UETPS_TEXT!STSSK_ERROR 
03 D 09C4 1302 PUSHL # : Push the argument count total 
0188 1 09C6 1350 BRW ERROR_EXIT ; Bail out completely 


DMF 
DMP 
T$ 


3=§sa 
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UE TDMPF OO on? 
v04-001 Three Minutes Timer Expiration Routine 10-SEP-19 UETP.SRCJUETOMPFOO.MAR; 2 (16) 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: ; 
Get out the transmit /receive loop test 


TIME _SUC_OUT: 
WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 


OFF 
BI swe #TEST_OVERM.FLAG : set test over bit 


0002"CF 02 


909 1 .SBTTL Three Minutes Timer Expiration Routine 10$F 
9C 1 p++ 10$" 
909 1354; FUNCTIONAL DESCRIPTION: 10$* 
9c9 1355; This routine will be called when the device test has been run for 10$, 
38 | 28 ; about three minutes. (that is, one normal run ) cs. 
9c9 1 28 ; CALLING SEQUENCE: 10$ 
9(9 1359 : Called via AST at $SETIMR expiration. 1TEF 
09C9 1360; LCE 
09¢9 1361 : L163 
3co 1368 | tbr 
O33 1 e ; MAX, 
3C9 1368 | 

§3k8 1 es ; OUTPUT PARAMETERS: 

3494 : o8 NONE 

4423 1 $ IMPLICIT OUTPUTS: 

09c9. =: 1371 NONE 

o9c9 1 ie 

09c9 «137 

09C9 1374 

09c9 «1375 

09C9 1376 

09c9 «41377 

09c9 1378 

09c9 «1379 

09c9 1380 

09C9 138 

09c9 (1 5 

09cB «C138 

0 1384 


oP, 
fon 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 


| 3 
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: ; -SBTTL System Service Exception Handler 


p++ 
; FUNCTIONAL DESCRIPTION: 

This routine is executed if a software or hardware exception occurs or 
if a LIBSSIGNAL system service is used to output a message. 


CALLING SEQUENCE: 
Entered via an exception from the system 


INPUT PARAMETERS: 
ERROR_COUNT = previous cumulative error count 


oO 
=] 
— 
_ 


AP =--=> 2 ] 


| SIGNL ARY PNT 


. MECH ARY PNT 
ee Reese: ‘pian 
| enneeee-------- i ' 
i ESTABLISH FP} i 
| 


jelelelelelelelelelelelelelelelelelealeleleoiolo) 
OOOOOOOOOVOOOOOOOOOOOOO 
cvovVvVvVTVCTVTVTVCVCCTVTVCCTC0C0C0C000"8 
Ok a dd ad dd 


COMPLETION CODES: 
SS$_NORMAL if it's a UETP condition or RMS error. 
Error status from exception, otherwise. 


0901 : DEPTH ' Mechanism Array 
09D 1 | eemmeeeoeenenn- ! ! 
09D1 1 ! RO ! ' 
09D1 1 | ecsenneenenneneneenasands i i 
0901 1 ! R1 ! v 
09D1 1 en ewe. 
1 } N ' = 
09D1 1 i \ 
09D1 1 ' CONDITION NAME! : 
09D1 1 | emwewnnennennn- ! : 
0901 1 ! N-3 ADDITIONAL! Signal Array 
09D1 ' LONG WORD ARGS! : 
09D1 | eeweeccccccccce i i 
0901 : PC : : 
0901 | eeewcecccccccce i i 
9D1 : PSL : v 
9D1 | eewccocecccocce | eecccecce 
0901 IMPLICIT INPUTS: 
ia tnd 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


SIDE EFFECTS: 
May branch to ERROR_EXIT. 
May print a message. 


i=) 
Oo 
o 
—_— 
a a a a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es 


eee 


Sete Se Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge 


RO OD NA UNE WI @ OOD NA UNE WIN @ 9 OD NA UE WIN $$ O OD NAME WIN  O OONOUE WO 


OOoOwowowooowowowowowvons 
cuoucvcvvcvVvccoVv°c° rT °orCCo"o 
Oe ee a ed a ed ed 


‘a 
| 
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vibe ha System Service Scotetten Handler 18-865 =1982 93:83:92 UETP. Sat IGE TDMPE OO MAR: 2 (38) 
9D1 1443 ARON: 
OFFC 3p ee: ote " WORD “M<CRZ2,R5,R4,R5,R6,R7,RE,RI,R10,R11> ; Entry mask 
$03 144 
; Disable AST delivery 
01 DD HY 1609 Seen oe aetiessiilsic ; Assume ASTs were enabled 
50 09 01 44 1449 CMPL S“#SS$_WASSET,RO ; eld tees care 
of hi of 1239 Prat (Sp : Set ASTs to remain disabled 
a) 1494 1S “ ; Disable SS failure mode 
01 ODD Wd 1438 PUSH meen Ce ae : tee SS failure mode was enabled 
50 O09 ODI 3 1488 CMPL Ba 958 _MASEET RO : Boe 38 reture mode enabled? 
FS 145 BEQL 3 
ee i O3r8 8 208: CLRL (SP) ; Set SS failure mode to remain cif 
: : ignal ara ointer, 
56 04 AC DO O9F7 145 MOVL CHFSL_SIGARGLST(AP) ,R6 : get | at aor gota oe 
srt 18 43 Sere 1289 CRPLV sersso rat nore : is this a messege oem LISS 1GNAL? 
S$S"-FAC_NO 
9S Sage 1268 RO, HUETPS$_ FACILITY 
ne 14 ig QOA08 1464 BNEQ ; BR if gate ts noe UETP exception 
66 02 C2 QAOA 1465 SUBL2 #2,CHFSL_SIG Meee a gros” By a: one An 
21 11 ytd 1409 ~~ = sever” = SOF S1E Ane ; Restore ASTs and SS ‘ait mode 
OAIE 1468 30S: ; <\ Nelteren 
79 00000650 oe a BADE 190 BNEG | SOR TARP Se a ee ee ee 
8 é OA27 1471 CMPZV Bits Ses NO,- : Is it an RMS failure? 
01 of mh 1298 * Oo aRASS. FACILITY Fangs: 
ole Bsc 1308 + a : i neve bits from status code 
™ eye ef 9 ong 1476 pitt Fe CHPSL SIG ARG (RO) , - : rae on RMS failure for which... 
o04p* cr oARA 1296 gnnat Mee Niece 3 ..-no AST can be Gol tvered? 
1A 13 OA3D 1479 BEQL 30s ; BR if so - must give error here 
01 BA Saat 128) —_ #*M<RO> ; Restore SS failure mode... 
01 BA NGA 1288 Sseisrn.$ : SENBELG ‘ “ : Restore AST enable... 
ASC 1484 SSETAST 8, ENELG = : PO te Ss 
gts be ve 1486 RET 2 nee sagen : Supply Mme ot (or goto RMS * ERROR) 
ASI 1487 50$: ; 
sented 33 44 Age 1289 CERt > Sateen : eet Rg ray 8 net Ss sejjeure. 
) : ce failu 
59  0000045C er D1 ag 4 ae gees. SSFAIL,R9 put js ts 8 ee es Se 
= re) 129 SGETMSG_S MSGID = - ; Get SS failure code associated text 
A69 1298 MSGLEN = BUCEER PTR,- 
A69 1494 ore . AO 2 F,- 
nes 1434 MSG BLOCK* M56_BLOCK ; Get FAO arg count for SS failure code 
eal 3 A 4 129 BeOr : Don't use SGETMSG if no SFAO args... 
OOOC'CF DF OA86 1499 PUSHAL BUFFER_PTR 3; ..-else build up... 
| 


—_ 
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"9 ABA 1 PUSHL i «0-8 message ope te yl 
00741130 8F 43 A 1 PUSHL ir TPS$_T i. : «eewhy the System Serv failed 
00 ea, A 1 INSV STS$V_SEVE eRiT ; Give the message... 
of AIS 1 Bi SEVERITY, ( SPs : «+.the correct severity code 
9 A97 «1 MOVL ; Count the number of args we pushed 
pase | 
5A 0D QASC 1 R10 : Save SS failure code 
oo Uwmh)6hCUR “4 ! #1,R8 : Count the number of args we pushed 
57 66 S ¢€ AA1 151 L #4, CHFSL_SIG_ARGS(R6) ,R7 ; Copeert longwords to bytes 
7 7 § | 151 : e the current signal array... 
6— O4A 7 AAB 151 R7. CHF SI. _SIG_NAME(R6),(SP) ; vee A the stack 
7E 66 8 $I AAD 151 R8 SH EXT iS “ARGS(R6),-(SP) ; Push the current arg count 
ooc>D §3=6931 ~0AB1 «(151 BRwW ERROR 


FW" OWOONOUES WN 
~N oa 
Oo oO 
bod wf 
Sar2 z= v0 @® 
°ooc oc BD 
o<@® <4” @ 
crore rx 
i 
Nee 


+ 
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vaee RMS Error Handler 19-3601 382 3:53:92 UETP.SRC SESpNer Oo” MAR; 2 . i) 
AB4 1 1g -SBTTL RMS Error Handler 
ABS 1517 ;4+ 
ABS 1 13 ; FUNCT LONAL DESCRIPTION: 
“ae ! } 5 This routine handles error returns from RMS cal‘s. 
AB4 1521; CALL Ime SEQUENCE: 
wae ! ¢ 3 Called by RMS when a file processing error is found. 
ABS 1524 ; INPUT PARAMETERS: 
aa? } > The FAB or RAB associated with the RMS call. 
ABS 1 § 3 IMPLICIT INPUTS: 
ABS 1 3 3 NONE 
ABS 1529; 
ABS 15350 ; OUTPUT PARAMETERS: 
OAB4 1531; NONE 
OAB4 15 ¢ : 
QAB4 15335 ; IMPLICIT OUTPUTS: 
QABS 1534 ; Error message 
OAB4 1535 ; 
OAB4 15 § 3; COMPLETION CODES: 
OAB4 1537 ; NONE 
OAB4 1538 ; 
OAB4 1539 ; SIDE EFFECTS: 
QAB4 1540 ; Program may exit, depending on severity of the error. 
OAB4 1541 ; 
OAB4 1366 ;-- 
OAB4 154 
QAB4 1544 RMS_ERROR: 
OFFC aed 1362 » WORD “A<CR2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
56 04 AC DO OQOAB6 1349 MOVL 4 CAP ; See whether we're dealing with... 
66 03 91 OABA 1548 CMPB PrABsee RB ID, FABSB_BID(R6) ; ...a FAB or a RAB 
16 12 OABD 1549 BNEQ 10$ ; BR if it's a RAB 
57 O1FD'CF ODE OABF 1550 MOVAL FILE,R7 3; FAB-specific code: text string... 
58 56 DO OAC& 1551 L R6,R 3; ---address of FAB... 
OC A6 DD OAC7 1338 PUSHL FABSL_STV(R6) : ...STV field for error... 
08 A6 DD OACA 155 PUSHL FABSL_STS(R6) 3 ..-STS field for error... 
O2c6'cF 08 “6 DO OACD 1554 MOVL FABSL-STS(R6), STATUS 3 ...and save the error code 
1 11 SA 132 1. BRB COMMON ; FAB and RAB share other code 
57 O0209'"CF DE OADS 1389 MOVAL pecone R7 ; RAB-specific code: text string... 
58 3C A6 DO OADA 1558 MOVL L_FAB(R6) RB 3; ..-address of associated FAB... 
Bf A6 DD OAD 1328 PUSHL RABSL STV(R6) 3 ..eSTV field for error... 
8 A6 DD OAE1 1560 PUSHL RABSL~STS(R6) : ...5TS field for error... 
O2C6"CF 08 A6 DO OAES 1561 MOVL RABSI™ —_STS(R6) , STATUS 3 ...and save the error code 
QAEA 1306 COMMON : 
5A 34 AB QA QAEA 156 MOVZBL FABSB_FNS(R8),R10 ; Get the file name size 
AEE 1208 S$FAO_S CTRSTR = RMS ERR_STRING,- ; Common code, prepare error message... 
AEE 1565 OUTLEN = FER _P 
AEE 1398 OUTBUF = FAO_BUF,- 
AEE 156 P = R7,= 
AEE 1368 Pe = R16,- 
A E 1 é P = FABS$L_FNA(RB) 
OOOC'CF OF 1570 PUSHAL BUFFER_PTR 3 «.-and arguments for ERROR_EXIT... 
4 DD C 1571 PUSHL ee 
00741130 8F DD e 572 PUSHL #UETPS$_TEXT . wae 


Dh VAX/VMS UETP DEVICE TEST FOR DMP Thome 18-366 =138¢ 9}: $3: 9 yexeyn 
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RMS Error Handler -SEP-1 


$ 04-00 P 
UETP SRC9 3GEToMPFOO MAR; 2 he 


i) 


80 EF 14 1573 EXTZV #STSS$V_SEVERITY,- 
1g 1574 #STS$S_SEVERITY,= 
59 gece’ ss 17 1575 STATUS,R i; ++-get the severity code. 
6 59 88 OBIB 1 i BISB2 RY, (SPS ; ...and add it into the signal name 
05 Bo a3 157 PUSHL #5 ; Current arg count 
005E 1 0820 1578 BRW ERROR_EXIT 


nN 3 
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P UETI 
CTRL/C Handler -SEP-1984 12:03: age 4 


; FUNCTIONAL DESCRIPTION: 
; This routine handles CTRL/C AST's 


; CALLING PFeuENcE: 
; Called via AST 


: INPUT PARAMETERS: 
: NONE 

: IMPLICIT INPUTS: 

: NONE 

: OUTPUT PARAMETERS: 
: NONE 

: IMPLICIT OUTPUTS: 
: NONE 

C 


; COMPLETION CODES: 
; NONE 


CASTHAND : 
-WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,RIO,R11> ; Entry mask 


BBC #FLAG_SHUTDNV,FLAG,10$ ; Have to shut down device? 
$Q10_S - ; Shut down the device 


OFFC 
21 0002'CF O05 €1 


FPOMOOCWWWW MNWWWWWI ww 


CHAN = 
FUNC = #108 MOE EMODE! 108M. CTRL! 10$M_SHUTDOWN, - 
ie 10SB = XD_10SB 
OOA3'CF OF PUSHAL CNTRLCMSG : ses message pointer 
0 DD PUSHL #1 t arg count 
00741130 8F DD PUSHL #UETPS_TEXT!STSS$K WARNING "het Signal name 
00 OD PUSHL # ; indicate an abnormal termination 
0220'CF DF PUSHAL PROCESS _NAME 
90741060 BF DD PUSHL aUETES A A ENDD :STS$K pane 
00000000 ' GF 7 «FB CALLS shee : Output. the message 
DO OVL aii s m TRH. MSG! - : Set the exit status 


PEALE QPRQD MMIII. SE POPIPIPINPININPINIPINOMPINIPONPONy 
oom 


LC- 
ST88K SUCCESS+STSSK _WARNING> ,- 
SEXIT_S STATUS ; Terminate program cleanly 


WOO NA UE WIN @ OOO NA UE WIN  O OD NOUS WIN 0 OD NAU EWN O OO NOAUESWN-20 


ee dd dd 
RIPMPPMNIMINININD -2 9 9 MODOC OOCOOOCOOCOOOOO0O OOOO MOCoCoCN CD CD CDCDCD 


O2C6"CF 10000650 8F 


NO 


SSSLOOOS HOODS SOOO HOOD DOOD OOO DOOD DOOD ODDS OD ODO DS SD Oe 


| 
| 
| 


v04-001 Error Ex EP=-1984 UETP.SRC 


-SBTTL Error Exit 
+4 


; FUNCTIONAL DESCRIPTION: 
; This routine prints an error message and exits. 
CALLING SEQUENCE: 
MOVx error status value,STATUS 
PUSHx error specific information on the stack 
PUSHL current argument count 
BRW ERROR_EXIT 


INPUT PARAMETERS: 
: Arguments to LIBSSIGNAL, as above 


; IMPLICIT INPUTS: 
; NONE 


Message to SYSSOLITPUT and SYSSERROR 


; IMPLICIT OUTPUTS: 
; Program exit 


; COMPLETION CODES: 
: Error in STATUS 


; SIDE EFFECTS: 
NONE 


> bd td tk a ts a tb a td td tt te dt 


: OUTPUT PARAMETERS: 
E 


RROR_EXIT: 


poe Tas! _2 ENBFLG = #0 ASTs can play havoc with messages 


15 0002'CF 03 £0 #BEGIN_MSGV,FLAG,10$ : BR if ‘begin’ msg already printed 


OOOO 0.000000 00 00 G0 00 G0 00 C0 Go C0 G0 Cd GD G0 C0 09 G9. 00 G9 G9 00.09 00 G0. G2 00 02.000000000000 
WAVY $s 


SSSHSHOHGHGGOO SOHO SOO OOOO ODOO OS DODDS OD DD DO Ow 
SNA AAA AAA AAA MATT BB BB BBB ANNAN 


NOUS WN 2 OONAUN EWN $9 OD NAN E WIN 0 OD NA UIE NI CO OONOU EU O CONUS 


ee ee a a a a le a a el a a a a a a a 
PAAR AAAAAAA AAA AAAS AAA AA AAA AAAAAAAAAAAAAAAAA AAO OO AAA AOAAOAAO 


D4 CLRL Set the time stame flag 
OOOF'CF ODF PUSHAL | amie ; Set the test name 
OD PUSHL @ ; Push the argument count 
00741039 8F ODD PUSHL #UETP$_BEGIND!STSSK_SUCCESS ; Set the message code 
00000000'GF 04 FB oe CALLS #4,G*LTBSSIGNAL ; Print the startup message 
O302"CF O08 8E€ (C1 wd ADDL3 (SP)+,#8,ARG_COUNT ; Get total # args. pop partial count 
O2c2'CF D6 7 INCL ERROR_COUNT ; Keep running error count 
00 OD OBAF 7 PUSHL # ; Push the time parameter 
9 20°CF DF O0BB1 7 PUSHAL PROCESS_NAME ; Push test name... 
OO0F or DD 0885 7? PUSHL #* ; «+.€8PQ Count... 
007410E2 8F DD OBBE 7 PUSHL #UETPS ABENDD ! STS$SK_ERROR ; «--and signal name 
‘CF §=DD OBC 7 PUSHL ERROR COUNT ; Finish off arg List... 
‘CF OF BCS 7 PUSHAL at NAME 3 cee 
1 HH OD BC9 PUSHL #*X1 ass 
0 a F OD OBCF PUSHL #UETP ERBOXPROC !STS$K_ERROR ; «-.for error box message 
00000000'GF O302°CF FB BS CALLS ARG_COONT,G*LIBSSIGNAL~ ; Truly bitch 
O2c6'CcF OD BDE TSTL TATUS ; Did we exit with an error code? 
9 12 OBE BNEQ : BR if we . 
00741962 F DO OBE4 MOVL #§ #UETPS_ABENDD!STSSK_ERROR,- ; Supply a generic one otherwise 
02C6'CF BEA STATUS 
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Error E -SEP=-1984 UETP.SRC JUETDMPFOO.MAR: 2 (21) 
BED 16 208 
+ BBC #FLAG_SHUTDNV,FLAG,30$ ; Have to shut down device? 
BFS 1690 $Q10_S - ; Shut down the device 
F 1691 CHAN = XD_CHAN 
F 1936 FUNC = FOS" SET MODE! 1OSM. CTRL! 1O$M_SHUTDOWN 
Ci2 1693 30$ 
Ci2 1694 Bl 
OC1B 1695 SEXIT_S STA ; Exit in error 


Hi 4 HE a INHIB_MSG,STATUS ; Don't print messages twice! 
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-SBTTL Exit Handler 


p++ 
; FUNCTIONAL DESCRIPTION: 
nb Ra dag handles cleanup at exit. If the MODE bogical — is 
covet to "‘ONE'’, the routine will update the test ie 
UETINIDEV DAT File depending on the UETUNTSM_TESTABLE fla 
ob wig oa pane field of the unit block for each unit for 
under test. 


CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT PARAMETERS: 
a contains the exit status. 
LAG has synchronizing bits 
DDB. RFA contains the RFA of the DDB record for this device in UETINIDEV. 


IMPLICIT INPUTS: 
UNIT_LIST points to the head of a doubly Linked circular List of unit 
Locks for the device under test. 


OUTPUT PARAMETERS: 
NONE 


- Page 43 
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oO 
Oo 


4 + in the 
he device 


IMPLICIT OUTPUTS: 
Various files are de-accessed, the process name is pout and any 
Tf the ab pypcarenjeat ren with eee EVOl is carried out 
OF lagical name is equated to ‘ONE’, the rout ine will update 
Lag n the UVETINIDE YBAT file dependin the 
UE TUNTSA. tes ABLE flag state in the UETUNTSB_FLA s° tield of the unit 
block for each unit for the device under test. 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Be Se Se Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge 


EXIT_HANDLER: 
-WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 


SSETSFR_S piers s = 1D. 
SSETAST_S ENBFLG 
STRNLOG_S RSLLEN = 


DS OS OS OS OS OS OS OS OS OO OS OS DO OD DO DD IPP PAPA AAA AA AOA Ono 


OFFC 


; Turn off proton Service failure mode 
3; No more AS 
; Get the run mode 
= BUFFER PTR,- 
RSLBUF = FAO BUF 
#_c a) sDUEFER ; Convert to upper case 
#*A70/ ,BUFFER 3 is te a one shot? 
BRW END_UPDATE 3  e@Se pt t update VETINIDEV.DAT 
BBS csaee TO_UPDV,FLAG,20$ ; Only update if it’s safe 
BRw UPDATE ; Else forget it 


MOVAL INI_RAB,R10 ; Set the RAB address 


0014 e 
0014" tf at if 
0088 

03 0002°CF 02 
OOAF 


w— Ooo 
-Oo ~—Ww—P 


10S: 


wm 


a a a ee a a a a dd 
aN NNN NNSA AO 


NANA BEB EE BEB PAA AWWA AI PNONONO NNN 4  - IQOOOOOOOOOO 00 


AO OD NA NE AINSI 0 OD NA UE WIN HS OD NAME WN O OD NAME WIN O OO NOAUNE Wi O OO~N 

4 
t 

@ 

_ 

o 

wo 

. 


POOOVOVODVAOOODOOOOOOOOODOOOAOOAODODOAIOOAOAOOAIOOOOOOOOOAOOOOOOOOOOAOO 


PARE AAEM MAGIA AANPIPININININININININININININIMNAS NINN 


COOOCOOCOSOOCOCOCOCOCOCOCOOOCOOOOSGOOOOCCOOCOCOCOOOCSOOOOOCOOOOCOOOOO 


OODAWMOMOWDY & P — 0900: 


5A  OB7C'CF 
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VBar001 Exit Handler 18-SEpotoae (2:88:55 LORE SR eSGESpMton maR:2 | 29 Gs) 
1E AA 2 C7 1754 vB #RABSC_RFA,RAB$B_RAC(R10) ; Set RFA mode 
10 AA ope" cr 8¢ 38 ot 1755 MOVC3 #6,DDB"RFA RABSURFACRIO) ; Set RFA to DDB Line 
cre 17 ‘ T RAB = TRIOS ; 60 back to the DDB record | 
9 OC 17 BLBC RO,UPDATE_ FAILED ; If failure then forget it 
1E AA 00 «90 «(0C8B «(17 8 MOVB_ #RABSC_SEG,RABSB_RAC(R105 ; Set back to sequential mode 
5B OA88'CF SaUOUASS" FT C1 3 ¢C 175 ADDL3 #UNITCIST UNIT CIST R11 ; Set the unit block List header 
9 D046 38 1760 CLRL a 3; Init a counter 
oc9 1761 UNIT_LOOP: 
01 «ET C98 1708 BC #UETUNTSV_TESTABLE,=- ; BR if this unit is not testable 
02 0B AB DC9A 176 UETUNTSB_FLAGS (RIS, 108 
59 D6 oe 1708 108 INCL R ; Count testable units 
5B 68 co tet 1098 ADDL2 (R11),R11 ; Next unit block 
QOOOOA8S'SF 5B D1 BcAg 176 CMPL R11,#UNIT_LIST 3 Are we full circle in the List? 
ED if OCA 1768 BNEG =~ UNIT_LOOP : BR if not 
9 D5 OCAB 109? TSTL 9 ; Any testable units? 
12 12 OCAD 1770 BNEQ 208 ; BR if yes... 
O0O18'CF 4E BF 90 OCAF 1771 MOVB #*A/N/ ,BUFFER+4 3 «else disable the DDB record... 
0cB5 a SUPDATE RAB = (R10) 3 «eehere 
3c 50 6©—€9) «€©(OCBE §=6(177 C RO,UPDATE_FAILED : If error then forget it 
OCC1 1774 20$: 
58 68 cO OCcCi 1775 ADDL2 (R11),R11 ; Next unit block 
OOOOOA88'SF SB Di OCC& 1776 CMPL R11,#UNIT_LIST ; Are we full circle in the List? 
4E 13 OCCB 1777 BEQL END UPDATE 3 f yes 
OCCD 1778 $GET RAB = (R10) ; Get a record 
2450 €9 OCD6 1779 LBC RO,UPDATE FAILED ; If error then forget it 
0014'CF 20 8A OCD9 1780 BICB2 €_BITM, BUFFER : Convert to uppercase 
0014'CF 55 8F 91 OCDE 1781 PB A7U/ ,BUFFER ; Is it a UCB record? 
35 12 OCE4 ree BNEQ END_UPDATE ; BR if not 
01 EO OCE6 178 BBS #UETUNTSV_TESTABLE,- ; BR if this unit is testable... 
D6 0B AB OCE8 1784 UETUNT$B_FLAGS(R115,20$ 
O018'CF 4E BF 90 OCEB 1785 MOVB #*A/N/ ,BOFFER+4 3; ..-else disable the UCB record... 
OCF1 1786 SUPDATE RAB = (R10) 3 ..-here 
C4 50 €E€8 OCFA 1787 BLB RO,20$ ; Look at the next record if no error 
OCFD 1788 UPDATE_FAILED: 
OC AA DD OCFD 1789 PUSHL RABSL_STV(R10) ; Do a simple message... 
50 0D OD00 1790 PUSHL RO 3 ...to tell of the failure 
0188'CF DF OD02 1791 PUSHAL INIDEV_UPDERR 
01 OD 443 1736 PUSHL #1 g 
oe EF Q008 179 EXTZV #STS$V_SEVERITY,- ; Copy the severity from RMS status... 
7E 50 0 DOA 1794 #STS$S_SEVERITY,RO,-(SP) 
6€ 00741130 BF C8 OD0D 1795 BISL2 #UETPS TEXT, (SPS > ...to our message 
00000000'GF 05 FB 0D14 1796 CALLS #5,G*LTBSSIGNAL 
DIB 1797 END_UPDATE: 
00 DD ODIB 1798 PUSH #0 3; Set the time flag 
OOOCF * CF DF DID 1799 PUSHAL 15 5* Ane 3; Push the test name | 
02 DD OD21 1800 PUSHL @# ; Push arg count 
4 EF OD ; 1801 EXTZV #STSSV_SEVERITY,- ; Push the proper exit severity... 
0 Des 1 08 #STS$S~ SEVERITY, - 
7E 02C6'CF D26 180 STATUS ,-(SP) 
6E 00741080 8F CB OD2A 1804 BISL2 #UETPS_ENDEDD, (SP) ; ...and use it in our message code 
a DD OD31 1805 PUSHL #4 
51 E DO 0D33 1 $ MOVL SP,R1 
D 8 1 SPUTMSG_S MSGVEC = (R1) ; Output the message 
D451 3 SSETPRN_S PRCNAM = ACNT_NAME ; Reset the process name 
04 oo 1 ? RET ; That's all folks! 
p51 1810 
| 
| 
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Exit Hand 2: UETP.SRC 
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1O$M_RD_COUNT 
OSM~SHOTDOWN 
RTUP 
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O$_ 
O$_SETMODE 
os 


CO ne ee ee ee 
ts ad 


7 
OC_NAME 
ITDESIG 


-PCLI_CON 
NMASC-PCLI™PRO 
NOUNIT SELECTED 
NO_CTRCNAME 
NO-RMS_AST TABLE 
NRAT_LENGTA 
OTSSCVT_TI_L 
OUTADDRESS 
P1BUF 
P2BUF 
P2BUF _DESC 
P2BUF -LEN 


PASS 
PASS _MSG 
PMTSTZ 


PROCESS “NAME FREE 
PROC_CORT_NARE 


PROMPT 

QUAD_STATUS 

RABSE_PSZ 
RAC 


Reeeeeee 
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Reeeeree 
Reeeeeaee 
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Reeeeeee 
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00000 


03 
03 


ooooo coo 
WWIII PoroT 
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rw 


RMS$_FAB 
RMS$_FACILITY 
RMS$-RAB 
RMS_ERROR 
RMS-ERR_STRING 


R$_BEGIND 


" " 
OOooooocoo 


COOoOooooooooooooooooooooo 


RRRAARRE 
REARREKE 
RARARREEE 
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Symbol table 18-SEp-}obe 92:63:55 LORTPrsRCIUETDMPrOo MaR:2 "29 (58, 
START_CONT 9 461 R 5 TR-pBuE . DESC AAR 03 
START_CONT_PRM 2g R é TR-POBUF —LEN 2 
START_TEST 0 R TTCHAN 2 9 
START-TO_MSG 0 : 1R : UE TOMPF OO RG 5 
START-TRI R YETP = 0074 
START-TRIB_PRM 900020 e UETP$_ABENDD = 00741 
STATUS 00002C6 R UETPS~ABORTC = 00748 
STRSUPCASE eeeeerer =X UETP$-BEGIND = 00741 
STSS$K_ERROR = 444 94 UETPS_DATAER = 0074801 
STS$K-INFO = 000 990 Uc TP$-DENOSU = 0074833 
STS$K-SUCCESS = 00000001 UE TP$_DEUNUS = 0074819A 
STSSK_WARNING = 4 464 UETPS_ENDEDD = to8h 8 
STS$M_INHIB_MSG z UE TP$~ERBOXPROC = 0748 
STS$S_FAC_NO = 900000¢ UETPS-FACILITY = 9009 4 
STS$S_SEVERITY = 0000000 UETPS_OPENIN = 00741098 
STS$V~FAC_NO = 0000001 UETPS "TEXT = 00741130 
steey “SEVERITY = 0000000 UETUNTSB_FLAGS = 0000000 
SUC_ERIT 00000810 R 05 UETUNT$B_TYPE = 44 
SUPBEV GBLSEC 00000020 R 8 UETUNTSC_FAB = 0000011 
SUP_FAB 0000088 R 0 UETUNTSC_INDSIZ = 000001A4 
SYSSASSIGN eeeeeeee GX 05 UETUNTSK_F AB = 00000110 ‘ 
SYSSCANTIM tereeeee GX 09 UE TUNTSK RAB = 00000160 : 
SYSSCONNECT eeeeeeee GX 05 UETUNTSA-TESTABLE = 00000002 
SYSSCRMPSC teeeenee GX 05 UETUNTST—FILSPC = 00000014 
SYSSOCLEXH eeeeeree GX 05 UETUNTSV~ “TESTABLE = 00000001 
SYSSEXIT eeeneeee GX 05 UETUNT$W-S1Z = 00000009 
SYSSEXPREG teeeeree GX 05 UNIT_ est 000 NED R 92 
SYS$F AO eeeneeee =X 05 UNIT_LIST 4 A88 R 0 
SYSSGET eeeneeee GX 05 UNIT_LOOP 0000C98 R 05 
SYS$GETDEV eeeeenee GX 05 UNIT"~NUMBER 00002E2 R 03 
SYS$GETDVI eeeeeeee GX 05 UPDATE FAILED OOOOCFD R C5 
SYSS$GETMSG seeeeeee GX 05 WRITE_PRM Q00002FD R 02 
SYSSINPUT 00000061 R bg WRITE-SIZE = 00000000 
SYSSMGBLSC eeneeeee GX 0 xD _cH HEN BB 088 8 R o3 
SYSSOPZN eeeeeeee GX 05 XD-10SB 0000670 R 0 
SYSSPUTMSG eeeeeeee GX 05 xn CHR_LOOPB 2 9000002 
SYS$Q10 eereeeee GX be 0000556 R 05 
S$YS$Q10W eeeneene GX 5 Natt _BUF 0000680 R 03 
SYSSSETAST tteeeere GX 09 XMITTEFN = 00000005 
SYSSSETIMR eeeeeree GX 05 
SYSSSETPRN eeeeeree GX 05 
SYSSSETSFM eeneeeee GX 05 
SYSSTRNLOG eeereeee GX 05 
SYSSUPDATE teaeeree GX 
SYSSWAITFR erereree GX 
aoe Sug 8s 
TEST_RAME OOOOF R z 
TEST-OVERM = : 
TEST-OVERV = 
TEXT-BUFFER = FA 
THREEMIN 1DD R 02 
TIME ERR, OUT 99 R 
= 

TIME” SUC_OUT 4 R 

_PTBUF : i 
TR_P2BUF R | 
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oe 


! Psect synopsis ! 


f mene ee msomaaa name } 


PSECT name Allo cation PSECT No. Attributes 
. ABS 00000 0 ( ) 0 ¢ O.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00 Bo 0 ( oa 1¢ 1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 00 Dc 6¢ 1500.) ¢ ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RWDATA 0 Banas ( 3244.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM pe bns ( 38°} 4 ( 4.) NOPIC  USR CON REL LCL NOSHR’ EXE RD WRT NUVEC BYTE 
DMPF D51 +(¢ 3409.) 5 ( 5.) NOPIC USR REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
peewee een esse ame seane nena + 
! ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 40 00:00:00.07 00:00:00.58 
Command processing 141 82:20: 3-87 0:00:05.85 
Pass 1114 0:00: - 0 oS SETS 
pyabo} table sort a7 00:00:07. 37 BR: R007 «Bt 
Symbol table output § $0:09:00: 0 80:90:04 108 
Psect synopsis output 4 00:00:00.04 00:00:00.06 
Cross-reference output 8 Opt 8 08" Be bs Bo 
Assembler run totals 182 00:00:42.5 0:01:44.02 


The working set Limit was 2000 pages. 

171259 bytes_(335 pages) of virtual memory were used to buffer the intermediate code. 
There were 130 pages of symbol table space allocated to hold 2362 non-local and 39 Local symbols. 
1811 source Lines were read in Pass 1, orogye ings" object records in Pass 2. 


59 pages of virtual memory were used to define macros. 


Macro iibrary name Macros defined 
_$255$DUA28: CUETP.0B aye te MLB; 1 
“$52 250UA g: SYS.OBJJLIB.M 
55$DUA SYSLIB STARLET. ALB; 2 46 
TOTALS (all libraries 49 


2653 GETS were required to define 49 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:UE TOMPF00/0BJ=0BJ$:UETDMPFOO MSRC$:UETDMPFOO/UPDATE=(ENHS$:UETDMPFOO) +EXECMLS$/LIB+LIBS$:UETP/LIB 
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